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O Micro Center é uma loja da Mesbla especializada em microcomputadores. E especialista em 
oferecer vantagens. Lá, você encontra as últimas novidades em micros com capacidade de até 64K, dos 
modelos mais simples aos mais avançados. Tudo, com assistência técnica permanente, atendimento 
personalizado, entrega e instaiação grátis, além de condições de pagamento especialmente 
programadas para você, com todas as facilidades do Cartão de Crédito Mesbla Essas são algumas 
das vantagens que o Micro Center oferece a você na compra de um microcomputador. 

Agora venha computar as outras vantagens. 



Rua do Passeio, 42/4.° andar - Rio de Janeiro 





























A luta pela regulamentação da reserva do mercado brasileiro 
de minis e microcomputadores às empresas nacionais está ganhan¬ 
do novas adesões. No dia 7 de julho, cientistas, empresários, 
profissionais de processamento de dados, que compõem o 
Movimento Brasil Informática, reuniram-se em São Paulo para 
discutir a política nacional do setor. O resultado imediato desse 
encontro poderá ser avaliado no dia 17 de agosto, data em que se 
realizará uma Mobilização Nacional pela Informática, com 
manifestações em vários Estados. Para mantermos nossos leitores 
informados sobre a crescente sensibilização em torno da reserva de 
mercado, estamos publicando nota sobre o evento do dia 17. 

Dentro do espaço dedicado ao software, neste número de 
Geração Prológica, veiculamos o programa Mala Direta & 
Editor de Cartas, que, reunindo dois aplicativos eficientes, 
auxiliará nossos usuários a dinamizar os serviços dos escritórios. 

Além de dicas, informações de hardware e software, nesta GP 
nossos leitores ainda poderão conhecer os novos kits VDT, que 
permitem aos usuários dos CP 500 e CP 300 acessar o Serviço de 
Videotexto da Telesp. 

E por falar em Videotexto, no próximo número de nossa 
revista estaremos dedicando um espaço especial a esse serviço, que 
pode ser acessado de qualquer parte do mundo, desde que o usuário 
possua o número de um telefone paulista ligado ao sistema. 

Carlos Roberto A. Gauch 
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E m primeiro lugar, 

informamos que fizemos 
uma pequena, mas 
significativa, alteração em nosso 
Cartão de Resposta Comercial. 
Basicamente, modificamos o espaço 
dedicado às Informações 
Solicitadas: para melhor atender às 
dúvidas de nossos leitores, estamos 
pedindo que após o número de 
referência de cada matéria, nota ou 
programa seja especificada a 
informação desejada. 



Em segundo lugar, comunicamos ao 
pessoal do Colégio Pio XII, de Juiz 
de Fora (MG), que o volume de 
correspondências enviadas a esta 
revista pelos alunos do curso de 
Processamento de Dados foi 
bastante significativo, o que nos 
impossibilita de atender a todos os 
pedidos de revistas. No entanto, 


se o professor encarregado do 
curso nos enviar o endereço do 
Colégio, cederemos gratuitamente, 
para uso dos alunos do Pio XII, 
uma assinatura de 
nossa revista. 

A todos, um abraço. 


/ ; - 

Gostaria de parabenizá-lo pela qualidade 

de sua revista e equipamentos, dos quais 
sou feliz leitor e usuário. Aproveito 
também para esclarecer algumas dúvidas 
que possuo: 

- qual o preço de uma placa de alta 
resolução? 

- a instalação dessa placa afetaria a 
posterior instalação de uma placa de 
CP/M? 


A 

- no caso de instalação de uma placa de 
CP/M, qual a marca que vocês 
recomendariam? 

- os componentes eletrônicos de um CP 
500 seriam compatíveis com a 
substituição do microprocessador Z80 
pelo Z80B, clock de 4 MHz? 

R. Morrow 
Goiânia - GO 


Caro Morrow, presumimos que você 
esteja interessado em informações sobre 
a placa de alta resolução para o CP 500 
(você não especificou o equipamento). 
Para os CP 300 e CP 500, a Prológica 
estará lançando, neste mês de setembro, 
uma placa de alta resolução, sendo que 
seu preço final será liberado somente 
nessa época. 

Nada impede que você instale uma 
placa de alta resolução e em seguida 
outra de CP/M. No entanto, não 
podemos lhe indicar um fornecedor, pois 
ainda não testamos todos os produtos 

v___ 


Gostaria de receber todos os 
números atrasados da revista Geração 
Prológica, com execeção do n° 2, que já 
possuo. Gostaria ainda de saber se existe 
no mercado um joystick tipo bastão para 
ser conectado ao CP 200, se há algum 


existentes no mercado. Agora, quando 
você for comprar uma placa desse tipo, 
fique atento para dois fatores: verifique 
se ela lhe permitirá ampliar a memória de 
seu micro para 64 Kb de RAM além de 
lhe possibilitar uma formatação de tela 
tipo: 80 colunas por 24 linhas. 

Com relação à sua última dúvida, 
lhe informamos que um 
microprocessador Z80B é incompatível 
com os componentes eletrônicos de um 
CP500, particularmente, com o cristal 
que define o clock para o 
microprocessador. 


programa com o qual eu possa jogar 
xadrez nesse equipamento e qual a 
possibilidade de adquiri-los pelo 
reembolso postal. 

José Eduardo Ribeiro Marques 
Santo André - SP 


Caro José Eduardo, a GP n° 1 se 
encontra esgotada, sendo que poderemos 
lhe fornecer somente exemplares do n° 3, 

4, 5e6. 

Nos revendedores Prológica você 
encontrará o joystick tipo bastão da 
Greika Comercial Ltda — Cx. Postal 
9406, SP. No entanto, você terá de levar 
o seu micro à Assistência Técnica 
\ ____ 


Prológica para instalação de um 
conector que lhe permitirá utilizar esse 
periférico. Com relação ao jogo de 
xadrez, a Microsoft possui o TKdrez, 
16kb de RAM. o endereço da Microsoft é 
av. Angélica, 2318, 13° and., cj. 132, 

CEP 01228. Escreva para estas duas 
empresas e certifique-se se ambas 
comercializam seus produtos pelo 
reembolso postal. 

___ J 


Sou possuidor de um CP 300 e ao 
tomar conhecimento da revista Geração 
Prológica achei-a de grande utilidade 
para os usuários dos CP’s Prológica. 
Como não a encontro em bancas de 
jornais de Florianópolis, solicito 
informações sobre os procedimentos 
necessários para recebê-la 
regularmente. 

Gostaria também de obter todos os 
exemplares atrasados dessa 
publicação. 

Antonio Guilherme S. Ribas 
Florianópolis - SC 


Em primeiro lugar, gostaria de 
parabenizá-los pela ótima revista que 
vocês publicam. Em segundo, solicito 
esclarecimentos para os seguintes 
pontos: 

- para que endereço devo enviar o vale 
postal, através do qual me tornarei 
assinante de Geração Prológica? 

- há algum erro no programa Micro 
Melodia, publicado na GP n° 4? pois ao 
digitar RUN o programa pára na linha 
370. 

Marcelo de Mendonça Tavares 
Rio de Janeiro - RJ 


Prezados leitores: Geração 
Prológica é uma revista distribuída por 
meio do sistema de assinaturas e 
através dos revendedores Prológica. 
Para tornar-se assinante desta 
publicação . basta anexar vale postal 
ou cheque de CrS 7 mil e 500 ao Cartão 
Resposta Comercial, que acompanha 
cada exemplar de GP. Este cartão 
já está previamente endereçado à 
Prológica, através de alguns códigos 
impressos em seucanto superior direito. 

A você, Marcelo, comunicamos 
que a listagem do programa Micro 
Melodia não possui nenhum erro. 
Cheque se você a digitou corretamente. 
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CP 500 023/D 

A Prológica lançou, em junho últi¬ 
mo, o CP 500 023/D, que apresenta a 
mesma configuração básica do CP 500, 
com uma alteração significativa: ao in¬ 
vés de dois drives de face simples, com 
175Kb cada, o 023/D possui dois drives 
de dupla face, com 350Kb cada. 

Hoje em dia, um drive face simples 
custa em torno de Cr$ 1 milhão e um face 
dupla, CrS 1 milhão e 500 mil. Por este 
motivo, o 023/D veio propiciar aos usuá¬ 
rios finais uma capacidade de armazena¬ 
mento 100% maior por um preço bastan¬ 
te inferior. “Tendo-se em vista que des¬ 
de 1981 a Prológica domina a tecnologia 
de fabricação de drives, conseguimos 
uma grande produção desses periféricos, 
o que nos possibilitou implementar no 
CP 500 dois drives mais possantes, que 
duplicaram nesse equipamento a capaci¬ 
dade de armazenamento, pela metade do 
preço”, explica Paulo Sérgio Carreiro, 
gerente de produtos da linha CP. 

O CP 500 023/D vem atender às 
pequenas e médias empresas e a todos os 
usuários que necessitem de uma maior 
capacidade de armazenamento de dados. 
O 023/D já pode ser encontrado em todos 
os revendedores Prológica. 


Mobilização Nacional 
pela Informática 

Defendendo a regulamentação da 
Reserva de Mercado para a área de 
informática e consequente desenvolvi¬ 
mento da tecnologia nacional, o movi¬ 
mento “Brasil Informática” reunido no 
dia 7 de julho, decidiu realizar em 17 de 
agosto próximo uma Mobilização Nacio¬ 
nal pela Informática, com manifestações 
em todo o País. 

Durante a reunião do dia 7 — da 
qual participaram cientistas, fabricantes 
de equipamentos, profissionais da área 
de processamento de dados, etc. — fo¬ 
ram criados comitês estaduais que irão 
organizar as manifestações do dia 17, 
quando serão distribuídos folhetos à po¬ 
pulação explicando o que é Reserva de 
Mercado e qual a sua importância para o 
desenvolvimento da indústria nacional 
de informática. 

A Informática na 8 a Bienal 
Internacional do Livro 

Entre os dias 16 e 26 de agosto, será 
realizada, no Pavilhão da Bienal, no 
Parque do Ibirapuera (SP), a 8 a Bienal 
Internacional do Livro, que contará com 
a participação de aproximadamente 500 
editoras, nacionais e estrangeiras. Para o 


público em geral, o estande 63 apresenta¬ 
rá, no mínimo, uma surpresa agradável e 
útil: um CP 500 acoplado a um P 500 
oferecerá aos interessados listagens con¬ 
tendo todas as obras publicadas pela 
L&PM além de textos opcionais sobre os 
livros mais vendidos pela editora. O CP 
500 e a P 500 que o público encontrará no 
estande da L&PM são contribuições da 
Prológica para esta 8 a Bienal Internacio¬ 
nal do Livro, aberta das 15 às 22hs, nos 
dias úteis, e das 10 às 22hs, fins de 
semana. 

Geração Prológica Informa 

Dentre os serviços que a Prológica 
passa a oferecer aos usuários do Video¬ 
texto (VDT), uma novidade: Geração 
Prológica Informa, um sistema onde as 
matérias, artigos, notas e programas vei¬ 
culados pela revista Geração Prológica 
poderão ser acessados pelos usuários do 
VDT. Este novo serviço oferecido pela 
Prológica vem propiciar a um maior 
número de pessoas o acesso às informa¬ 
ções veiculadas por GP ampliando os 
leitores da publicação e possibilitando o 
intercâmbio de informações e conheci¬ 
mentos entre públicos de veículos distin¬ 
tos, o que torna a comunicação mais rica 
e abrangente. 


Software para Microcomputadores? 
Só há uma solução inteligente! 


I 


I 


I 


BIBLIOTECA BRASILEIRA DE SOFTWARE 


Todas as categorias de Software 


Diversões 
e Jogos 
Pessoais 


Uso Caseiro 

Comerciais 

Gráficos 


Educacionais 

Profissionais 

Científicos 


E..., mais de 4000 originais 


que você pode retirar 
e levarpara 
sua casa ou 
empresa para 
usá-lo à vontade. 


Para os principais 
micros do mercado: 
TIMEX/SINCLAIR, 
CP 200 


CP 300 
CP 500 

TRS80 Mod. III 
Sistema 700 




Você pode consultar pessoalmente os catálogos de Software ou solicitar informações pelo Correio. 

Av. Brigadeiro Faria Lima, 1390 - 8? Andar - Cj. 82 - CEP 01452 - Tels.: (011) 814-0682,813-6407 e 210-1257 - São Paulo - SP 























Jogos 

de 

Azar 


Este jogo simula uma disputa de 
dados entre uma ou duas 
pessoas. Para jogar você terá de 
dizer o seu nome e sua aposta 
para o micro, estabelecendo a 
quantia que será apostada no 
número escolhido. Os dados 
serão jogados pelo computador e 
o resultado será exibido na tela. 


10 '****************************** 
20 '* JGGO DE DRDOS * 

30 •'* PROLOGICA * 

40 '*■ CP—200 * 

50 •'****************************** 


60 DIM N*(2,6) 

70 DIM B(2) 

30 DIM P(2) 

90 DIM C(2) 

100 LET SM=0 
110 CLS 
120 PRINT 
130 PRINT" 

140 PRINT 
150 PRINT 

160 PRINT" DIGITE 1 ÜU 2 JOGRDO 
RES ?" 

170 INPUT N 

130 IF N<1 OR N>2 THEN GOTO 160 
190 PRINT RT 6,1;"JOGADOR 1" 

200 PRINT RT 7,1;"NOME : " 

210 PRINT "(MRXIMQ 6 LETRRS )" 

220 INPUT N*(1) 

230 PRINT RT 7,3;N*(i> 

240 PRINT RT 9,1;"QUANTO TEM CR* 


JOGO DE DRDQS" 


250 

260 

270 

TRR 

230 

290 

300 

310 

320 

330 

340 

350 

DOR 

360 

370 

330 

390 

400 

410 

420 

430 

440 

450 

460 

(X) 

470 

PCX) 

430 

490 

500 

510 

520 

530 

540 


INPUT SCI) 

PRINT RT 9,13;SC1).00 
PRINT RT 11,1;"QURNTQ VRI RPOS 
? CR* "; 

INPUT PCD 
PRINT PCD.00 
PRINT 

PRINT " EM QUE No.? "; 

INPUT C(l) 

IF N=1 THEN GOSUB 630 
IF N=i THEN GOTO 450 
IF N=2 THEN PRINT RT 6,1;"J0GR 
2 " 

INPUT N*(2) 

PRINT RT 7,3;N*(2) 

INPUT S(2) 

PRINT RT 9,13;S(2);".00 
INPUT P(2) 

PRINT RT 11,25;P(2);".00 

INPUT C(2) 

PRUSE 100 
GOSUB 630 
FOR X=1 TO N 

IF C(X)=R THEN LET S(X)=S(X)+P 

IF C < X > < >R THEN LET S(X)=S<X>- 

IF C(X)< >R THEN LET SM=SM+PCX) 
IF C(X)=R THEN LET SM=SM-P<X> 
PRINT 

PRINT N*(X);"RPOSTOU NO ";C(X) 
IF C(X)=R THEN PRINT "GANHOU" 
IF C(X)< >R THEN PRINT "PERDEU" 
PRINT " RGORR TEM CR* ";S(X) 


THEN GOTO 
THEN GOTO 630 


550 IF C(X)>6 THEN PRINT "DRDO TEM 
6 NR." 

560 NEXTX 
570 PRINT 

530 PRINT "A BRNCfl ESTR COM CR* 

SM 

590 PRINT 

600 PRINT "DIGITE <A> P/ NüVR RPOS 
TR" 

610 PRINT "DIGITE <S> P/ NOVO SORT 
EIO" 

620 INPUT Z* 

630 CLS 
640 IF Z*="R 
650 IF Z*="S 
660 GOTO 530 
670 PRINT 
630 FOR B=1 TO 7 
690 CLS 
700 LET R=0 

710 LET R=INT (RND*5)+1 
720 GOSUB <R*100)+1000 
730 IF B<> 7 THEN CLS 
740 NEXT B 

750 IF N=i THEN GOTO 450 
760 PRINT 

770 PRINT"No. SORTERDO ";R 
7S0 PRUSE 120 
790 GOTO 450 
300 PRINT 

810 PRINT AT—4,15 ; ,l # u 
320 PRUSE 60 
830 RETURN 

340 PRINT RT R,17;"#";RT 6,13;"»" 
350 PRUSE 60 
360 RETURN 
370 PRINT RT 
330 PRINT 

390 PRINT RT 4,13;" #" 

900 PRINT RT a,13;"#" 

910 PRUSE 60 
920 RETURN 

930 PRINT RT 2,13;"# 

940 PRINT RT 6,13;"# 

950 PRUSE 60 
960 RETURN 

970 PRINT RT 2,13;"# 

980 PRINT 

990 PRINT RT 4,13;" #' 

1000 PRINT 

1010 PRINT RT 6,13;"# 

1020 PRUSE 60 
1030 RETURN 
1040 PRINT RT 2,13;"# 

1050 PRINT 

1060 PRINT RT 4,13;"# 

1070 PRINT 

1080 PRINT RT 6,13;"# 

1090 RETURN 
1100 SRVE "DRDO" 

1110 RUN 

1120 REM ESTE CRRRCTER 


2,17; "#" 


#" 

#" 


#" 


#" 


#" 


"#" EQUIVRL 


E H QüRLQüER CRRRCTER GRAFICO 
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Modelo: CP 500 48Kb RAM 



Mala 

Direta 

& 

Editor 

de 

Cartas 


0 departamento de software da li¬ 
nha dos Computadores Pessoais 
Prológica desenvolveu este pro¬ 
grama, Mala Direta & Editor de 
Textos, visando à agilização dos traba¬ 
lhos nas empresas e conseqüente redu¬ 
ção do tempo de produção. Este progra¬ 
ma permite aos usuários a união de dois 
serviços básicos dentro de uma empresa: 
o processamento automático de textos e 
elaboração de listagens para a mala di¬ 
reta. 

O aplicativo é composto pelas se- 
quintes funções: 

Criação de Cartas (1) 

Consulta de Cartas (2) 

Cadastramento de Destinatários (3) 
Consulta de Destinatários (4) 

Listagem de Cartas com os Respectivos 
Destinatários (5) 

Finalização (6). 

Sempre após digitar o número corres¬ 
pondente à opção desejada, é necessário 
teclar ENTER. 

Criação de Cartas 

Para esta função, o usuário deverá 
fornecer um nome-código que designará 
sua carta e que não poderá ultrapassar 
oito letras maiúsculas. Cada linha da 
carta deverá ter, no máximo, 60 caracte¬ 
res, sendo que ao final de cada linha será 
necessário pressionar ENTER para ini¬ 
ciar a linha seguinte. O micro tem um 
controle interno que não possibilita a 
entrada de um número superior ao esta¬ 
belecido: 60 caracteres. 

Consulta de Cartas 

Esta opção permite consultar a carta 
criada. Para tanto, é necessário que o 


nome-código da carta seja o mesmo. Se 
houver alguma dúvida, finalize o progra¬ 
ma e exiba o diretório dos arquivos 
contidos no disquete, para verificar se 
não houve engano quanto ao nome cor¬ 
reto da carta. 


Cadastramento de Destinatário* 

Aqui, deverá ser fornecido o núme¬ 
ro do primeiro ao último destinatário, 
para exibição dos campos a serem preen¬ 
chidos. Exemplo: no caso de se desejar 
introduzir uma carta ao destinatário 20, é 
necessário preencher os campos indica¬ 
dos com o nome desse destinatário, 
endereço, cidade. Estado. 


Consulta de Destinatários 

Nesta função deverá ser fornecido 
ao micro o número de destinatários a 
consultar, para exibição no vídeo dos 
dados solicitados. 


Listagem de Cartas 

Esta opção permite que uma carta 
seja impressa para diversos destinatá¬ 
rios. Para isso, deverá ser fornecido o 
nome do arquivo e os nomes do primeiro 
e do último destinatário. 

O Mala Direta & Editor de Textos foi 
desenvolvido para a impressora P 500, 
que permite a impressão de 58 linhas por 
folha, 60 caracteres por linha. Nesse 
caso, as chaves 7 e 10 devem estar na 
posição OPEN e as demais desligadas. 

A última opção, Finalização, permi¬ 
te o fechamento do arquivo aberto du¬ 
rante a execução do programa. 
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Modelo: CP 500 48Kb RAM 


Mala Direta 

& 

Editor de Cartas 


10 "***************************** 
20 "* MRLR DIRETR/ EDITOR * 
30 •'* PROLOG ICO * 

AO '* CP-500 * 

50 "***************************** 
60 CLERR3000 
70 POKE 16425,2 
30 CLS 

90 P0KE16916,2'PROTEGE RS 2 LINHRS 
DO TOPO 

100 PRINTTRB(14)"PROLOGICR MICROCO 
MPUTRDORES LTDR" 

110 PRINT@64*1,"****************** 
*** M R L A DIRETR ******** 
*************" 

120 CLS 

130 OPEN "R" ,1,"ETIQUETR/DRT",152 
140 FIELD 1,30 RS D$,30 RS E$,30 R 
S C$,30 RS T$ 

150 CLS 

160 PRINT@64*3+10,"1— CRIRCRO DE 
CRRTRS" 

17Ó PRINT@64*5+10,"2— CONSULTA DE 

ISO PRINT@64*7+10,"3- CRDRSTRRMEN 
TO DE DESTINRTRRIO" 

190 PRINT@64*9+10,"4- CONSULTA DO 
DE.STINRTRRIO" 

200 PRINT©64*11+10,"5- LISTAGEM" 
210 PRINT@64*Í3+10,"6- FIM" 

220 PRINT©64*15+10,"DIGITE R SUR 0 
PCRO":sINPUT R 

230 ON fl GOSUB 250 ,550 , 

360 .1250 ,1430 ,2140 

240 GOTO 150 
250 'CRIRCRO DE CRRTRS" 

260 Nl=3!G0SUB520 
270 GOSUB 2180 
280 G0SUB520 
290 F0RI=1T04 

300 PRINT@64*10+9,"DIGITE < @ ) PR 
RR FINRLIZRR fl CARTA": 

310 F0RJ=1T0100:NEXTJ 

320 PRINT@64*3+5,CHR$(31>;:F0RJ=1T 

0100:NEXTJ,I 

330 G0SUB520 

340 G0SUB500 

350 PRINT@64*3,""; 

360 G0SUB530 
370 GOSUB 2220 

330 IF B$=CHR$(64)THEN G0T0450 
390 IF B$=CHR$(13) THEN LSET X$=ST 
RING$(60.32) ELSE LSET X$=B$ 

400 C=C+i:N=N+1:N1=N1+1 

410 PUT 2,C 

420 IFN<11THEN 370 

430 N=0:Nl=3 

440 GOTO 230 

450 CLOSE 2 

460 G0SUB520 

470 PRINT@64*10+10,"DESEJR CRIRR M 
RIS CRRTRS? (<S>,N) ";:INPUT F$ 

430 IF F$ <> "S" THEN RETURN 
490 G0T0250 

500 PRINT@64*15+2, "P-1- 

-2-3---4- 

-5-6" 


Leia, 
assine e 
colabore com 



PROLOGICA 


a revista de 
quem tem CPs. 


510 RETURN 
520 CLS 

530 PRINT@64*2+10,"*** C R I fl C fl 
0 DE CRRTRS ***" 

540 RETURN 
550 G0SUB830 
560 G0SUB2180 
570 B=3 

580 FOR I7.=l TO L0F(2) 

590 IF B>=13 OR I7.=L0F (2) THEN640 
600 FOR L7.=11T0 17. STEP 10 

610 IF 17. = L7. THEN 640 
620 NEXT L7. 

630 G0T0700 

640 PRINT@64*14+10,"APERTE fl TECLR 
< ENTER > PARA CONTINUAR " 

650 Z$=INKEY$ 

660 IFZ$=""THEN650 

670 IFZ$< >CHR$(13)THEN650 

630 G0SUB830 

690 B=3 

700 GET2.I7. 

710 PRINT@64*B+2,X$ 

720 B=B+1 
730 NEXT 

740 PRINT@64*14+10,"RPERTE R TECLR 
<ENTER> PRRfl CONTÍNUflR" 

750 Z$=INKEY$ 

760 IFZ$=""THEN750 
770 IFZ$< >CHR$(13)THEN750 
730 CL0SE2 
790 G0SUBS30 

800 PRINT@64*5+5,.INPUT"DESEJA C 

ONSULTRR MRIS CA&TOS? (<S>,N) ":S$ 
810 IFS$<>"S"THEN RETURN ’ 

820 GOTO 550 
330 CLS 

840 PRINT@64*2+8, "**** C 0 N S U 
L T R D E CRRTRS ****" 
350 RETURN 
860 G0SUB1220 

870 PRINT@64*5,"PRIMEIRO CRDRSTRRM 
ENTO DE DESTINATÁRIO ";:INPUTP7. 

rrint @64*7, "ULTIMO' CRDRSTRRMEN 
TO DE DESTINRTRRIO INPUT U7. 

890 CLS 

900 F0RI7.=P7. TO U7. 

910 G0SUB1220 

920 PRINTe64*5,"DÍGITE DESTINRTRRI 
O: ;: INPUT Dl$ 

930 IF LEN(Dl$)<=30THEN970 
940 PRINT@64*4,CHR$(29) 

950 PRINT@64*5,CHR$(29) 

960 G0T0920 

970 PRINTe64*7,"DIGITE ENDEREÇO 
. :INPUT El$ 

930 IF LEN(El$)<= 30 THEN 1020 
990 PRINTG64*6,CHR$(29) 

1000 PRINT@64*7,CHR$(29) 

1010 G0T0970 

1020 PRINT@64*9,"DIGITE CIDRDE 
: :INPUT Clè 

1030 IF LEN (Cl$)<=30THEN1070 
1040 PRINT@64*8,CHR$(29) * 

1050 PRINT@64*9,CHR$<29) 

1060 GOTO1020 

1070 PRINT@64*11."DIGITE ESTRDO 
• ";:INPUT Tli 

1080 IF LEN(Tl$)<=30THEN1120 
1090 PRINT@64*10,CHR$(29) 

1100 PRINT@64*11,CHR$(29) 

1110 GOTO1070 ’ 

1120 PRINT@64*13+22 , " DRDOS CORRETO 
S? (<S>,N) INPUT Bl$ 

1130 IF Bl$< >"S" THEN 910 
1140 LSET D$=D1$ 

1150 LSET E$=E1$ 

1160 LSET C$=C1$ 

1170 LSET T$=T1$ 

1180 PUT 1,17. 

1190 CLS 
1200 NEXT 
1210 RETURN 
1220 CLS 

1230 PRINT@64*2,"***************** 
** CADASTRO DE DESTINRTRRIO ****** 
************" 

1240 RETURN 

1250 "** CONSULTA ROS DESTINRTRRIO 
1260 CLS 

1270 PRINT@64*2, "********-******-* 

**** CONSULTR ROS DESTINRTRRI 
OS ******************" 

1280 PRINT@64*5,"DIGITE 0 NUMERO D 
0 DESTINRTRRIO : ";:INPUT G7. 

1290 IF G7.<=L0F(1)THEN1350 
1300 CLS 

1310 FOR D1=1T0100 

ESTE D P fs^í» 9 Í0^° HR C0D0STRQ D 
1330 NEXT 
1340 G0T01250 
1350 GET 1,G7. 

1360 PRINT|64*4, "DESTINRTRRIO " ;G7. 

Í370 PRIt^T©64*6, "ENDEREÇO 
• s E$ 

1380 PRINT©64*8,"CIDRDE 
: " ; C$ 

1390'PRINT @64*10,"ESTRDO 

1400 PRINT@64*15,INPUT "DESEJR 
CONSULTRR MRIS ÔESTINATRRIOS? (<S 


>.N) ":S$ 

1410 IF S$ <> "S" THEN RETURN 
1420 GOTO1250 

1430 x ** LISTAGEM DE CRRTRS **' 

1440 CLS 

1450 GOSUB 2150 

1460 PRINT©64*4,"ENTRE COM DRTR DA 
CARTA" 

1470 PRINT@64*6,"CIDRDE 
"::INPUTCI$ 

1480 IF LEN (CI$) <= 30 THEN 1520 
1490 PRINT@64*5,CHR$(29) 

1500 PRINT@64*6,CHR$(29) 

1510 G0T01470 

1520 PRINT@64*8, "DIA (DD) 


ísão IF LEN (DI$)< = 2 THEN1560 
1540 PRINT@64*7,CHR$(29) 

1550 G0T01520 

1560 PRINT@64*10,"MES P/ EXTENSO 
"::INPUTME$ 

1570 IF LEN (ME$)<=10THEN1600 
1530 PRINT@64*9,CHR$(29) 

1590 GOT01560 

1600 PRINT@64*12,"RNO (XXXX) 

";:INPUTRRS 

1610 IF -L.EN (flfl$ ) =4THEN1640 
1620 PRINT©64*11,CHR$(29) 

1630 GOTO1600 

1640 PRINT@64*15,"DRTR CORRETR(S,< 
N>"::INPUTS$ 

1650 IFS$="N"THEN 1440 
1660 TT$=CI$+", "+DI$+" de "+ME$+" 
de "+RR$ 

1670 N=LEN(TT$) 

1630 M=70-N 
1690 GOSUB 2150 
1700 G0SUB2180 
1710 G0SUB2150 

1720 PRINT@64*3,"R PRRTIR DE QURL 
DESTINRTRRIO QUER IMPRIMIR ";:INPU 
T P7. 

1730 PRINT@64*10,"QURL 0 NUMERO DO 
ULTIMO DESTINRTRRIO ";:INP 

UT U7. 

1740 CL7.=0 

1750 FOR 17. = P7. TO U7. 

1760 F0RL7.=1T04 
1770 LPRINT" " 

1730 NEXT 

1790 CL7.=CL7.+4 

1800 LPRINTTRB(M)TT$ 

1810 CL7.=CL7.+i 
1320 F0RZ7.= 1T03 
1330 LPRINT" " 

1840 NEXT 

1350 CL7.=CL7.+3 

1360 LPRINT TRB(IO) "R" 

1870 CL7.=CL7.+1 
1330 GET 1,17. 

1390 LPRINTTRB(10)D$ 

1900 LPRINT TRB(10)E$ 

1910 LPRINT TRB(10) C$"-"T$ 

1920 CL7.=CL7.+3 
1930 F0RW7.=1T03 
1940 LPRINT" " 

1950 NEXT 

1960 CL7.=CL7.+3 

1970 FOR K=1 TO L0F(2) 

1930 IF PEEK(16425)>=60 THEN1990 E 
LSE2050 

1990 LPRINT CHR$(12) 

2000 CL7.=0 
2010 FOR H7.=1T0 4 
2020 LPRINT " " 

2030 NEXT 

2040 CL7.=4 

2050 GET2.K 

2060 CL7.=ÒL7.+1 

2070 LPRINTTRB(10)X$ 

2030 NEXT 

2090 LPRINT CHR$(12) 

2100 CL7.=0 

2110 NEXT 
2120 CLOSE 2 
2130 RETURN 
2140 CLOSE:END 
2150 CLS 

2160 PRINT@64*2+10,"*** L I S T R 
GEM DE CRRTRS ***" 

2170 RETURN 

2180 PRINT@64*9+14,"QURL 0 NOME DO 
ARQUIVO "::INPUT fll$ 

2190 OPEN "R",2,Al$,60 
2200 FIELD 2,60 RS X$ 

2210 RETURN 

2220 P0KE16419,95!P0KE16412,1 
2230 B$="" 

2240 PRINT @N1*64,""; 

2250 GOSUB 2270 
2260 RETURN 

2270 PRINTCHR$(15);:F0RK=1T015:R$= 
INKEY$:IFfl$<>""THEN22S0 ELSENEXT :P 
RINTCHRS(14);:F0RK=1T015:fl$=INKEY$ 

:IFfl$< >""THEN2280 ELSENEXT:G0T0227 
0 

2280 IFfl$=CHR$(13)THENRETURNELSEIF 
(fl$=CHR$(3)ORR$=CHR$(24))RNDLEN(B$ 
)=0THEN2270 ELSEIFA$=CHR$ <3)ORR$=C 
HR$(24)THENB$=LEFT$(B$,LEN(B$)-1): 
PRINTCHR$(8);:G0T02270 ELSEIFLEN (B 
$)=60THEN2270 ELSEB$=B$+R$:PRINTR$ 

;:G0T02270 


INPUTDI$ 
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Prolog ica 
Lanca Novos 
Kits VDT 
para os 
CP 500 e 
CP 300. 


A través de um projeto desenvolvido 
conjuntamente pela Telesp — Te¬ 
lecomunicações de São Paulo — e 
Prológica, a partir do último mês de maio 
os usuários do CP 500 e CP 300 podem 
ter acesso ao Serviço de Videotexto 
(VDT) por meio da requisição de uma 
assinatura do sistema junto à Telesp e da 
conexão de um kit a seus equipamentos. 
Neste mês de julho, a Prológica colocou 
à disposição de seus usuários seis tipos 
diferentes de kits, que atendem tanto aos 
usuários do CP 500 quanto aos do CP 
300. 



Em sua configuração básica, um kit 
apresenta modem, interface RS 232 C, 
cabo conector e um software de protoco¬ 
lo de comunicação, em fita ou disco. 
Para os usuários do CP 500, os revende¬ 
dores Prológica estão comercializando o 
kit de n° 36, com modem, RS 232C 
(interface 28), cabos, manual e software 
em disco. Os kits de número 38 e 39 
atendem aos usuários do CP 300 e são 
compostos por modem, RS 232C (serial 
30), cabos, manual e software em fita e 
disco, respectivamente. Para os dois 
equipamentos, foram desenvolvidos os 
kits 40, com modem, fita, cabos e ma¬ 
nual, o kit 41, com modem, disco, cabos 
e manual e o kit 42, que apresenta 
somente o software VDT gravado em 
disco. 

Os kits para acesso ao VDT podem 
ser encontrados nos revendedores Proló¬ 
gica de São Paulo a um preço de Cr$ 500 
mil, em sua configuração básica. Se o 
usuário já possuir um modem e optar 
apenas pela aquisição de programa VDT 

I- ERRATAS - 


Revista 

Programa 

GP 2 

Caçada ao Porco 


(pág. 13) 


GP 3 

Adição Subtração 


(pág. 15) 

GP 4 

Rali 


(pág. 5) 

GP 5 

Dados 


(pág. 16) 


gravado em disco, o kit custará por volta 
de 30 ORTN’s. 

Instalação 

O revendedor do kit é responsável 
pela instalação da RS 232C. Feito isto, 
basta que o usuário conecte o cabo de 
ligação ao modem e à RS 232C do CP 300 
ou CP 500 e, em seguida, ligue um dos 
terminais do modem à rede telefônica e 
outro à rede elétrica. 

Escolhido e adquirido o kit, para 
receber as informações dos 100 fornece¬ 
dores de serviço do VDT, é necessário 
que o usuário faça uma assinatura junto 
à Telesp, informando o número de série 
que está impresso no disquete ou fita 
Videotexto, dados pessoais e seu núme¬ 
ro de telefone. O valor da assinatura 
como usuário do VDT será debitado 
regularmente na conta telefônica, como 
ligação comum, computada por impulso, 
sendo que após as 20h será cobrado 
apenas um impulso. 


Linha 


130.IFJ=11 J=1 :PO=(J):ELSEPO= P(J) 

180.:HM=A:HS=B:HS$=E$;NM$= /// 


240 .... : NM$="***":HS$="59:59": GOTO200 
250 IF Y AND B A THEN GOTO 290 


770 IF H =W THEN ? 768, "CONSEGUIU 
VENCER O MICRO!!! 

É PURA SORTE ass: CP 300/500": GOTO 870 


220 IF V 1 OR V 4 THEN 160 
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Modelos: CP 300/CP 500 48Kb RAM 


Missão 

Submarino 

II 




Jogos de guerra são jogos de guerra: ou você tem habilidade suficiente 
para destruir ou fatalmente será destruído. Neste jogo, sua missão será 
a de eliminar os submarinos inimigos dentro de seu território, pilotando 
um helicóptero. Você terá de disparar (e acertar!) contra submarinos 
fortemente armados, que terão a possibilidade de rebater seus tiros. 

Difícil?Quem vencer, dirá. 

Para movimentar-se, use as teclas J t epara disparar use a barra de 
espaços. Você poderá lançar seus mísseis em duas direções: diagonal e 
vertical. Cinco mísseis disparados simultaneamente destróem um 
submarino inimigo, sendo creditados pontos a você. Para vencer o jogo 
você terá de afundar cinco submarinos ou marcar 600 pontos. 


10 x ****************************** 
20 '* MISSRO SUBMARINO II * 

30 ■-* PROLOG ICR * 

AO •'* CP—300/CP—500 * 

50 •' ****************************** 
60 ' 

70 AA$=“ "•'22 

ESPRCOS EM BRRNCO 
SO QR!=VRRPTR(RR$) 

90 QB!=PEEK< QA!+1)+PEEK(QR!+2)*256 
100 DEFUSR=QB! 

110 FORA!=QB!TOQB!+21: 

120 B!=R!:IFB!>32767THENBI=BI-6553 
6 

130 RERDQ:POKEB!,Q 
1A0 NEXTR 

150 DATA205,127,10,76,69,62,1,211, 
255,16,25A,69,62,16,211,255,16,25A 


,13,32,239,201: •' 

160 'INICIO 

170 CLS:CLERR300:DEFINTR-Z:RRNDOM: 
TI$="MISSAO SUBMARINO I 
I" 

ISO T*=STRING$(5,95)+CHR$(176)+STR 
ING$(5,95)+CHR$(26):L$=T$+STRING$( 
9,8)+CHR$(1A0)+STRING$(A,1A3)+STRI 
NG$ (3,131) + "0" : R$=T$+STR.ING$ (11,3) 
+"0"+STRING$ (3,131) +STRING* (A , 1A3 ) 
+CHR$(1A0):F*=T$+STRING$(7,3)+CHR$ 
(1A2)+CHR$(1A3)+CHR$(1A1) 

190 E$=CHR$(203)+CHR$(26)+STRING$( 
11,3)+CHR$(203):S1$=CHR$(130)+CHR$ 
(135)+CHR$(1A7):S2$=CHR$(186)+STRI 
NG$(2,191):SB$=STRING$(3,176)+CHR$ 
(190)+CHR$(183)+STRING$(A,176) 
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Missão Submarino II 


200 X1$=CHR$(131)+CHR$(1AO)+CHR$(1 
76)+CHR$(140)+CHR$(131)+CHR$(140)+ 
CHR$ (176 ) +CHR$ (140) +CHR$ (131) + " " : 
X2$=CHR$(140)+CHR$(179)+" "+CHR 

$<179)+CHR$<140) 

210 X$=CHR$(176)+CHR$(140)+CHR$(13 
1)+CHR$(140)+CHR$(176)+CHR$(131)+C 
HR$<140)+CHR$<176):SB=135:HH$=L$:M 
=30:L=4:PB=63:60SUB450 
220 CLS:GQSUB34Q :JJ=L*64+M: PRINT 
© JJ,HH$;:G0SUB350 

230 PRINTSO,"PONTOS"PT;:PRINT©48,W 
I"AFUNDADO(S)";:IFB<1THENG0SUB350 
S60T0230 ELSÊIFPT >599THEN500 EL 
SEJS=255—INP(0):KB=PEEK(14400) 

240 IFJS=1QRKB=STHENL=L-1:HH$=F$:P 
B=64:G0TQ260 ELSEIFJS=20RKB=16THE 
NL=L+1:HH$=F$:PB=64:G0T0260 ELSEI 
FJS=40RKB=32THENM=M-RND(4):HH$=L$: 
PB=64:G0T0260 ELSEIFJS=80RKB=64TH 
ENM=M+RND< 4):HH$=R$:PB=65:G0T0260 
ELSEIFJS=30RKB=123THEN290 
250 IFJS=OORKB=OTHENSE=USR<257):M= 
M+RND(3)-2 

260 PRINT® JJ, E$; :IFM<=3THENM=8:HH$ 

=R$: PB=65ELSEIFM>=43THENM=43 :HH$=L 
$:PB=63 

270 IFL<=0THENL=0ELSEIFL>=6THENL=6 
230 JJ=L*64+M: PRINT® JJ,HH$;:SE=USR 
(276):IFHV=1THENRETURNELSE230 
290 B=B—1: A1=JJ+133 : A2=A1+ (-L*2+13 
)*PB:F0RZ=R1T0R2STEPPB:PRINT0Z,CHR 
$(140);:SE=USR < Z+200):IFZ>576THENP 
RINT©Z,"sELSEPRINT©Z," "; 

300 NEXT:PRINTÊA2," * "j sF0RTD=1T0 
L: SE=USR (R2*3) s NEXT : PRINT® R2 , "— 

;:IFR2=SPTHENPT=PT+100:WI=WI+1:GOS 
UB440 s G0T0410 ELSEIFR2=SP+10RR2 
=SP-1THENPT=PT+30:G0SUB440 : GOSUB 
37o sG0SUB340 

310 IFHH$=L$THEN5P=5P+RND<2):SB=13 

5:G0T0330 ELSEIFHH$=R$THENSP=SP-R 

ND(2)s SB=139 s 60T0330 ELSEIFHH$=F$ 

THENPRINTSSP,;:SP=SP+64 

320 IFSP>1000THENSP=SP-123 

330 PRINT ®SP—2," — "CHR$(SB)" — ";:G 

0T0230 

340 PRINT ®576,;:F0RX=6TQ1STEP-1:PR 
INTSTRING*< X,32)STRING$(62-X*2, 

)STRING$(X,32):NEXT:PRINTSTRING$(6 
2,"-");:RETURN 

350 SX=14+RND(39):G0SUB340 :SY=3+ 

RND(7):G0SUB340 :SP=SX+SY*64:HV=1 
:F0RTD=1T04:G0SUB340 :SE=USR(270) 

:L=L+RND(3)-2:G0SUB260 :F0RDT=1TQ 
40:NEXT:NEXT:H0=0 

360 PRINT ®SP,CHR$(140);:SE=U3R<999 
9):FORTD=1T0200:NEXT:PRINTÊSP,CHR$ 
(135);:SE=USR(6666):F0RTD=1T0200:N 
EXT: PRINT® SP,CHR$(139);:SE=USR(333 


3):F0RTD=1T0200:NEXT:HT=0:B=5:RETU 
RN 

370 FORZ=SPTOJJ+64STEP-PB:PRINTQZ, 
CHR*(145);:SE=USR(200+Z):IFZ>576TH 
ENPRINT®Z,;ELSEPRINT®Z," "; 

380 NEXT: PRINT ®SP,CHR$(SB)"- ";:F 

0RSS=1T03:F0RTD=1T05:SE=USR(506):N 
EXT:NEXT:G0SUB430 

390 PRINT® JJ,Xl$;: PRINT® JJ+64,X3$; 

:FGRTD=1T0300:NEXT:G0SUB430 :HT=H 
T+l:IFHT< 2THENPRINT®JJ,HH$;:RETURN 
ELSEPRINT®JJ+64,X3$;: PRINT® JJ,X2$; 

:IFJJ >64THENPRINT@Jj—64,X1$; 

400 FGRTD=1T0150:SE=USR(506):NEXT: 
G0SUB430 :PRINTÊ274,"0 INIMIGO VE 
NCEU ESTR JOGRDR";:PRINTêSP—64,CHR 
$(176);:PRINT®SP-3,SB$;:F0RTD=1T02 
000:NE X T:CLS:WI=0:PT=0:G0T0220 
410 GÜSUB340 :PRINT®SP-65,Sl$;:PR 
INT®SP—1,S2$;:F0RSG=3333T03600STEP 
30:SE=USR(SG):NEXT:PRINTQSP-1,Sl$; 

:IFSP>640THENPRINT©SP-65,"-";ELá 

EPRINT@SP—65," 

420 FORTD=1T0500:NEXT:F0RTD=1T03:G 
OSUB340 :NEXT:IFWI>4THEN500 ELSE 
PRINTSSP-1,"-";:G0SUB350 :G0T02 

30 

430 PRINT®0,;:F0RTD=1T09:PRINTCHR$ 
(254);:NEXT:RETURN 

440 PRINTÊO,"PONTOS"PT;:PRINTS48,W 
I"RFUNDRDO(S)";:RETURN 
450 CLS:G0SUB340 : PRINT® 16,TI$:GO 
SUB350 ;F0RSG=3333T03600STEP20:PR 
INT©SP+RND(3)-2,"0";:SE=USR(SG):NE 
XT:CLS:PRINTS16,TI$:PRINT©192,"EST 
E E-' 0 SUBMARINO "SB$: PRINT" IN 

IMIGO" 

460 :PRINTTAB(50)L$:PRINT®384,"USE 
AS SETAS PARA MOVIMENTAR SEU HELI 
COPTERO": PRINT : PRINT "E A BARRA DE 
ESPAÇO FV ATIRAR": PRINT:PRINT :PRIN 
T:PRINTTAB(16)Sl$ 

470 PRINT "AFUNDANDO CINCO "S2$" ( 

OU FAZENDO 600 PONTOS) VOCE EEN 
CE 0 JOGO"; 

480 K$=INKEY$:IFK$=""THEN490 :ELS 
ERETURN 

490 PRINTS972,"PRESSIONE QUALQUER 
TECLA P/CONTINUAR";:SE=USR(3000):F 
0RD=1T010:NEXT:PRINTÔ972," 


500 CLS:PRINTS80,TI$:G0SUB340 :PR 
INTS193,L$" VOCE AFUNDOU"WI"SUBMAR 
INOS":PRINT@402,"E SEU PLACAR E""P 
T"PONTOS "R$:PRINT®974,"PRESSIONE 
< ENTER > P/ NOVA BATALHA"; 

510 IFINKEY$<>CHR$(13)THEN520 ELS 
EWI=0:PT=0:CLS:G0T0220 
520 F0RX=4T010:SE=USR(X):NEXT:GOTO 
510 
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Dando sequência a nosso 
Curso de Basic, nesta lição 
veremos os comandos: 
GOTO e INPUT. 
Preparados?Então, vamos lá! 



Curso de Basic 

Licão III 

/ 

Marilena Occhini Siviero 


N as lições anteriores vimos como 
determinar variáveis e como escre¬ 
ver programas. Os comandos: 
PRINT, LET (opcional), CLS, NEW, 
LIST, RUN e END já são nossos conhe¬ 
cidos. Também nas lições passadas 
aprendemos que um programa executa 
as instruções de acordo com a ordem dos 
números das linhas. Hoje nós vamos 
conhecer o comando GOTO, que desvia 
a ordem de execução dos programas. 
Exemplo: 

10 CLS 

20 PRINT “COMPUTADOR 11 
30 GOTO 20 

Localizado na linha 30, o comando 
GOTO 20 fará com que o programa volte 
para a linha 20 e a execute novamente. 
Qual a seqüência do programa? Ele exe¬ 
cutará a linha 20 seguida da linha 30 
sucessivamente. Por este motivo, este 
programa não necessita da instrução 
END, pois ele não tem fim. Para parar¬ 
mos o programa vamos necessitar da 


tecla BREAK. A mensagem que o com¬ 
putador nos mostrará após apertarmos 
esta tecla, indicará que o programa foi 
interrompido e que o micro está disponí¬ 
vel para receber novos comandos. Tente 
digitar este programa: 


Na medida em que executarmos este 
programa vamos descobrir que o coman¬ 
do GOTO é utilizado não só para retor¬ 
nar mas também para avançar a execu¬ 
ção normal de um programa. Se escre¬ 
vermos novamente o primeiro programa 
que demos como exemplo, modificando 
a linha 20 para: 


20 PRINT “COMPUTADOR 11 ; 


10 CLS 

20 PRINT “LINHA 20 11 
30 PRINT “LINHA 30 11 
40 GOTO 60 
50 PRINT “LINHA 50 11 
60 PRINT “LINHA 60 11 
70 END 
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o ponto e vírgula colocado no final da 
instrução faz com que a palavra COM¬ 
PUTADOR seja escrita ao lado da outra. 

Agora vamos a um pequeno teste: 
responda sem usar o computador: O que 

aconteceria se ao invés de ponto e vírgula 
tivéssemos apenas vírgula? Outra pergun¬ 
ta: Como poderíamos mostrar os números 
em seqüência, utilizando o comando GO¬ 
TO (1,2,3,...)? 

Vamos agora a um exercício que se 
utiliza de um programa: execute-o e veja 
o que acontece: 

10 CLS 
20 A=0 
30 PRINT A 
40 A=A-i-l 
50 GOTO 30 

Preste atenção nas linhas 30 e 50. 
Na primeira passagem o número 0 é 
impresso na tela (instrução 30) e depois é 
somado 1 à variável A (instrução 40) 
para o programa voltar à instrução 30. 
Imprimindo 1 (o novo valor da variável 
A), somando mais 1, voltando à linha 30, 
e assim por diante, você poderá chegar 
aos números solicitados acima, em nosso 
exercício. 

Comando INPUT 

Vamos supor o seguinte problema: 
como calcular a área de diversos quadra¬ 
dos? Para isso podemos utilizar o progra¬ 
ma abaixo: 

10 CLS 
20 A=100 
30 PRINT 

”A ÁREA DE UM QUADRADO DE 
LADO” ;A;” = ” A*A 
40 END 

O inconveniente neste programa é 
que para cada quadrado teremos de mu¬ 
dar a linha 20, colocando novos valores 
na variável A. Exemplo: 

20 A=120 
RUN 

Neste caso o computador responderá: 

A ÁREA DE UM QUADRADO 
DE LADO 120=14400 

Para o exemplo: 

20 A=80 
RUN 

O computador responderá: 

A ÁREA DE UM QUADRADO 
DE LADO 80=6400 

E assim por diante. 


Para evitar que alteremos indefini¬ 
damente uma linha de programação exis¬ 
te o comando INPUT. Para utilizá-lo é 
necessário indicar uma variável: 

INPUT A (variável numérica) 

INPUT BS (variável alfanumérica) 

Vamos a um exemplo? Execute o 
seguinte programa (não esqueça do co¬ 
mando NEW). 

10 CLS 
20 INPUT A 

30 PRINT “O VALOR DA VARIÁVEL 

A=”;A 

40 END 

Após digitar RUN, você perceberá 
que o computador limpou a tela, através 
do comando CLS na linha 10, e imprimiu 
um ponto de interrogação seguido do 
cursor: 

9 _ 

Isto significa que o micro executou a 
instrução INPUT e aguarda que você 
digite o conteúdo que será gravado na 
variável A. Então, o que significa o 
comando INPUT? Ele permite inserir 
valores nas variáveis durante a execução 
de um programa. Voltando a nosso 
exemplo,’ entre com um número logo 
após o sinal do cursor e tecle ENTER. 
Você notará que o micro continua a 
executar o programa e que a variávei A 
possui o valor que você lhe designou. 

E importante notar que se quiser¬ 
mos colocar um dado alfanumérico 
(string) através do comando INPUT, 
devemos utilizar uma variável alfanumé¬ 
rica: 

INPUT AS 
INPUT B1$ 

No programa: 

10 CLS 

20 INPUT AS~ 

30 PRINT A$ 

40 GOTO 20 

O computador sempre retorna ao coman¬ 
do INPUT, fazendo aparecer? — e 
aguardando um novo valor para AS. 
Experimente executar este programa, 
não esquecendo os comandos ENTER e 
BREAK. 

Agora, que tal uma substituição na 
linha 20? Modifique-a para: 

20 INPUT “QUAL O SEU NOME”; 
AS 

Ao executar o programa, na tela será 
exibida a mensagem: 

QUAL O SEU NOME? 

Desta forma, através do comando 
INPUT, podemos programar mensagens 
na tela para que elas nos guiem na 


entrada de dados, evitando que ocorram 
erros do tipo: 

10 CLS 
20 INPUT A 
30 PRINT A 
40 END 
RUN 
? JÕAO 

Neste caso, na tela será exibida a mensa¬ 
gem: ERRO TYPE MISMATCH, pois 
aqui só poderíamos ter digitado números, 
já que a variável A é numérica. 

Exercícios 

1 - Calcule a área de um quadrado 
qualquer. 

2 - Liste na tela os números pares a 
partir do zero. 

3 - Aceite a digitação de um nome que 
seja listado na linha debaixo. 


Respostas 


QN3 0V 

$v ±Nidd oe 

$V .'„:aujou nas |Dnft„ mdNI 0£ 

sid oi -e 
oe oioD os 

3-|-V=V 0V 
V lNIdd oe 
o=v oz 

SID 01 -Z 
QN3 0* 

v*vd oe 
v índNi oz: 
SID 01 -l• 


BASIC 

Cursos para 
crianças e aduttos. 

Crianças: tarde e noite 
Adultos: noite. 

Serão utilizados 
Microcomputadores CP 500 
da Prológica com 
1 microcomputador 
para cada 2 alunos. 

Duração: 40 horas. 

No final do curso 
serão dados 
diplomas de freqüência. 

INSCRIÇÕES ABERTAS 

INSTITUTO 
ITALIANO 
EUGÊNIO 
MONTALE 

Av. Angélica. 688 
Fone: 66.9199 


Colaboração 












Modelos: CP 300/CP 500 48Kb RAM 


Programa 

do 

Usuário 

Imagine que o seu maior inimigo 
colocou uma bomba em sua 
casa. Você terá que desarmá-la 
e, se tudo der errado, fugir em 
dez segundos. A bomba possui 
três fios de ligação: um falso, 
outro que a desarma e o terceiro 
que a detona. As opções 
aparecem no vídeo: 1, 2, 3. 

Este programa é uma 
colaboração de nosso leitor 
Edmundo Macruz, aluno do 
terceiro ano de Processamento 
de Dados do Colégio Horácio 
Bento, São Paulo. 



1 *********************** ******** 


•y 


USUÁRIO:DESARME A BOMBA 

* 

3 

•“* 

PROLOGICA 

* 

4 


CP-300/CP-500 

* 

5 

***■*■**-*** ******** *** ***■** **-*•*■*■* 


1.0 CLS: GQT020 

15 CLS5 PRINT "0 FIQ-";N;"-E FALSO" 
20 PRINT : PRINT :PRINTTAB(10)"VOCE E 
UM PERITO EM DESARMAR BOMBAS" 

30 PRINT sPRINTTAB(13)"TENTE DESATI 
VAR ESTA, SENDO:" 

AO PRINT :PRINTTAB(15)"-1 FIO FA 

LSO" 

50 PRINT :PRINTTAB(15)"-1 FIO DE 

TONA" 

60 PRINT :PRINTTAB(151 FIO DE 
SARMA" 

70 PRINT : PRINT : PRINT :INPUT"ESCOLHA 
0 FIO (0-3)";N 
80 IFNCOORN>3THEN70 
90 CLS 
100 RANDOM 

110 R-RND(3):ON R GOTO 120,270,320 
120 PRINT : PRINT : PRINT :PRINTTAB(20 > 
"VOCE TEM 10 SEGUNDOS":PRINTTAB(20 
)"PARA SE AFASTAR DO":PRINTTAB(2 
5)" COMPUTADOR":F0RM=15360T016383: 
POKEM, 19.1: NEXTM 
130 PRINT:PRINT 

140 PRINTTAB(15)"XXXXXXX XXXX 

XXXX XXXX XXXX" 

150 PRINTTABdS) "XXX X XXXX 


XXXX XXXXX XXXXX" 

160 PRINTTAB (15) "XXXXXXX XXXX. 

XXXX XXXX XXXX XXXX" 

170 PRINTTAB(15)"XXX X XXXX 

XXXX XXXX XXXX" 

180 PRINTTABdS) "XXX X XXXXXX 

XXXXXX XXXX XXXX" 

190 PRINTTAB(15) "XXXXXXX XXXXXX 

XXXXXX XXXX XXXX" 

200 PRINT:PRINTTAB(20)"VOCE NAQ SA 
LVOU NEM" 

210 PRINT: PRINTTAB(20)"A SUA PROPR 
IA VIDA." 

220 PRINT : PRINT :INPUT"DESEJA TENTA 
R NOVAMENTE <S/N>";T* 

230 IF T$="S“ THEN 10ELSEEND 
260 PRINT : PRINT : PRINT:PRINT 

270 PRINT: PRINTTAB (20)"UFAH. 

_CONSEGUIU" 

2S0 PRINT: PRINTTAB (20)"VOCE DESATI 
VOU A BOMBA" 

290 PRINT:PRINT:PRINT: PRINTTAB (15) 
"******** CONGRATULACOES ********" 
300 PRINT:PRINT:PRINT:INPUT"DE3EJA 
CONTINUAR <S/N>";S$ 

3.10 IF 3$="S" THEN 10ELSE END 
320 PRINT: PRINTTAB (20)"ESTE FIO ER 
A FALSO" 

330 PRINT: PRINTTAB (20)"TENTE NOVAM 
ENTE " 

340 INPUT "DIG. <C> P/CONTINUAR";C$ 
350 IF C$="C" THEN 15 ELSE END 
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Sistema 

Operacional 

Neste artigo final sobre o 
DOS 500, Luiz Antonio 
Borba responde a uma 
questão que os usuários 
dos CP 300 e CP500 têm 
formulado 
constantemente: por que 
não se pode criar um 
arquivo com mais de treze 
extensões? 


A ntes de criar um arquivo, você 
deve perguntar ao DOS 500 (co¬ 
mando DIR) quantos blocos li¬ 
vres no disco você terá para gravá-lo. Na 
figura 1, por exemplo, existem 87 blocos 
livres, sendo que cada um equivale a três 
setores. Fazendo uma conta simples, 
você poderá calcular quantos blocos 
ocupará o seu arquivo (para fazer este 
cálculo, consulte o artigo da GP n° 6). Se 
o seu arquivo couber nos blocos livres 
teoricamente você poderá gravá-lo. 

Para testar se o espaço livre é contí¬ 
nuo, crie o arquivo (comando CREA- 
TE). Se ele necessitar mais de 13 exten¬ 
sões aparecerá uma mensagem de erro. 
Você ainda poderá saber se o espaço é 
contínuo ou não, através do comando 
FREE, que implementará na tela do seu 
micro o mapeamento do espaço do dis¬ 
co. A figura 2 apresenta um mapa gerado 
pelo comando FREE onde os espaços 
livres são representados por pontos e os 


ocupados pela letra X. Cada caracter 
equivale a um bloco e cada grupo de seis 
caracteres a uma trilha. 

As Extensões 

Quando você iniciar a gravação do 
seu arquivo, o DOS enviará as informa¬ 
ções para os primeiros lugares vagos do 
disco (os pontos representados na fig. 2). 
Se ele não couber na primeira dessas 
regiões, numa sequência completa, serão 
criadas uma ou mais extensões desse 
arquivo, que poderão chegar ao máximo 
de treze. Se o seu arquivo necessitar de 
mais de treze extensões, você terá de lhe 
reservar espaço em outro disquete. 
Quando você for fazer a transferência, 
não esqueça de usar o comando COPY, 
indicando ao DOS a região alocada no 
novo disquete. Exemplo: para transferir 
o seu arquivo do Drive :0 para o Dri¬ 
ve : 1, utilize o seguinte comando: 

COPY NOMARQ/DAT:0,: 1 


Fig. I 


Disco : 0GS50O 

Drive 

: 1 


11/11/11 



S/JUÍV05 

Ktrib 

LRL 


#31 c 

#Ext 

EOF 

Data 

C8T8LCG0/E8S 

N*X0 

256 

50 

17 

3 

208 

11/11 

CmOGG/BLD 

N»X0 

256 

1 

1 

1 

30 

11/11 

SCR35/CTL 

N*X0 

256 

8 

3 

« 

i 

0 

00/00 

3/CTL 

KtXO 

256 

3 

X 

1 

0 

00/00 

GEFSIS/CKD 

mo 

256 

5 

2 

1 

82 

11/11 

CQ7PL060/TXT 

m.o 

16 

0 

0 

0 

0 

11/11 

SYSTEil/FL 

nm 

256 

15 

c 

7 

0 

00/00 

SCR33/CTL 

mo 

256 

13 

5 

1 

0 

oo/oo 

SCRlò/CTL 

N*X0 

256 

13 

5 

1 

0 

00/00 

SCR50/CTL 

m.o 

256 

ô 

1 

1 

0 

00/00 

8CR17/C7L 

mo 

256 

13 

5 

1 

0 

00/00 

SCSM/CTL 

N*X0 

256 

13 

r 

•J 

1 

0 

00/00 

SCR18/C7L 

N*X0 

256 

13 

5 

1 

0 

00/00 

HELP/CTL 

mo 

256 

18 

& 

1 

0 

00/00 

SCR19/CTL 

m.o 

256 

5 

n 

1 

o 

00/00 

ERR0R3/CTL- 

m.o 

64 

36 

3 

1 

0 

00/00 

PRGTEXTO/CMD 

mo 

256 

50 

17 

2 

0 

00/00 

SÜR32/CTL 

mo 

256 

13 

5 

1 

0 

00/00 

LPA/CTL 

N*X0 

256 

6 

2 

1 

0 

00/00 

SCR33/CTL 

N*X0 

256 

13 

5 

1 

0 

00/00 

LP3/CTL 

mo 

256 

A 

2 

1 

33 

00/00 

*** 87 Blocos Livres 

*** 







Fig. II 





Mapa 

de Espaço 





Trl # 

DOS5OO 






D r 

i ve - O 

00-0A£ 

xxxxxx 

: 

xxxxxx 

s 

X X X X X X 

£ 

xxxxxx 

£ 

xxxxxx 

05-09£ 

xxxxxx 

£ 

XXXXXX 

s 

xxxxxx 

£ 

xxx u . . 

£ 

. .xxxx 

10-1A 2 

xxxxxx 

2 

xxxxxx 

: 


£ 

....XX 

£ 

„.-.xx 

15-19 • 


£ 


£ 

Diretr 

: 


: 

xxxxxx 

20-2A£ 

xxxxxx 


xxxxxx 


XXXXXX 

: 

xxxxxx 

: 

xxxxxx 

25-29: 

xxxxxx 

: 

xxxxxx 

: 

X X X X X X 

£ 

xxxxxx 

: 

xxxxxx 

30-3A: 

xxxxxx 

s 

xxxxxx 

: 

XXXXXX 

£ 

xxxxxx 

£ 

xxxxxx 

35-39: 

_XX 

: 


£ 


£ 

xxxxxx 

£ 

xxxxxx 
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Próxima 

Letra 


Modelos: CP 300/CP 500 48kb RAM 


H oje em dia, a educação 

passa por uma nova fase: as 
crianças têm à disposição 
microcomputadores que fazem da 
aprendizagem uma diversão. 

Tendo por base esta idéia, a 
Prológica desenvolveu o jogo 
educativo que publicamos neste 
espaço. 

Após o programa ter sido 
totalmente digitado, tecle RUN e 
pressione ENTER. Na tela 
aparecerá a mensagem: 

A PRÓXIMA LETRA 
UM JOGO EDUCACIONAL 


Em seguida, o vídeo mostrará 
um rosto e algumas letras fora da 
ordem alfabética. A criança deverá 
digitar, então, a letra que sucede, 
na ordem lógica, a última letra 
exibida no vídeo. Quando a opção 
da criança for correta, ela receberá 
um sorriso acrescido da 
mensagem: “Muito bem!”. Se a 
opção for incorreta, a face disposta 
no vídeo se tornará triste e a 
mensagem exibida será: 
“Lamentável!”. Neste jogo, os 
sorrisos compensam as decepções 
e as crianças aprenderão o 
alfabeto, divertindo-se. 


10 '***************************** 
20 '* PROGRAMA EDUCACIONAL * 
30 '# PROLOGICA * 

40 '* CP300/CP500 * 

50 '***x*x**xx*****x**xx***x***xx 
Ó0 CLS:PRINT<§64*5+17 ,STRING* <25*13 
1) 

70 PRINT<§64*6+21 *" A PRÓXIMA LETRA 
":PRINT 

80 PRINT TAB(20)"UM JOGO EDUCACION 
AL ":PRINT 

90 PRINTTAB(17)STRING$<25,131) 

100 ' 

110 GOTO 610 
120 ' 

130 C$ = *■ %% - %% - %% - 

X7."i B* = CHR*(191) 

140 CLS :GOSUE: 370 

150 N = RND<26):N=N+64 

160 M$ = CHR$(N):GOSUB 280 

170 0$ = CHR$(N)sGOSUB 280 

180 P* = CHRÍ(N) :G0SUB 280 

190 PRINT <§700," "í 

200 PRINTTAB(10) USING C$;M$,0$,P* 

, B$ 

210 H$ = INKEY$: IF H* = "" GOTO 21 
0 

220 PRINT <§700," "? 

230 PRINTTAB< 10) USING C$;MS,0*,P* 
,H$ 

240 IF H$ = CHR$(N) GOSUB 340 sEL 
SE GOSUB 400 

250 FOR X = 1 TO 1500:NEXT X 
260 GOTO 120 
270 END 

280 IF N = 90 ,THEN N=N-25:ELSE N=N 
+ 1 

290 RETURN 

300 ' SUB-ROTINAS DAS FACES 
310 ' ESTA SUB ROTINA E' DESIGNADA 
PARA DESENHAR A FACE PARA O PROGR 
AMA EDUCACIONAL 
320 ' 

330 ' 

340 ' FACE FELIZ 


350 P=135: FORX=1 TO 7:PRINTGP,H*< 

X) ? sPRINT<§5*64+30, "MUITO BEEMMMM ! 

!!!!!!:P=P+Ó4:NEXT X 

360 RETURN 

370 ' FACE NATURAL 

380 P=135:F0RX=1 TO 7:PRINT tíP,N$< 

X) ; tPRINTGSfcóM+SO^QUAL A SUA OPCA 

0 ????"?sP=P+64sNEXTX 

390 RETURN 

400 ' FACE TRISTE 

410 P = 135 : FOR X=1 TO 7:PRINT<§P, 
S$(X);SPRINT" LAMENTAVELL !!!! 

"?:P=P^64:NEXT X 
420 RETURN 

430 ' DATA PARA FACES 

440 DATA 32,32,32,176,140,140,131, 

131,131,131,131,131,131,140, 

140,176,32,32,32,32,32,184,131,32, 

32.144.160.32.32.32.32.3 2,14 

4,160,32,32,131,164,144,32,168,129 
,32,32,32,130,129,32 ,32,32,3 

2.32.130.129.32.32.32.32.169.32 
450 DATA 149,32,32,32,32,32,32,32, 

136.176.132.32.32.32.32.32.3 

2.32.32.149.138.144.32.32.131.164, 
144,32,32,32,32,32,160,1 52,1 

31.32.32.32.154.32.32.130.137.164, 
176,176,130,131,131, 131,131, 

131.129.32.160.176.140.131.32.32 
460 DATA 32,32,32,32,32,131,131,13 

1,140,140,140,134,131,131,13 

1.32.32.32.32.32 

470 DATA 32,32,32,176,140,140,131, 

131,131,131,131,131,131,140, 

140.176.32.32.32.32 

480 DATA 32,184,131,32,32,160,144, 

32.32.32.32.32.160.144.32.32 
,131,164,144,32 

490 DATA 168,129,32,32,32,32,32,32 
,32,32,32,32,32,32,32,32,32, 

32.169.32 

500 DATA 149,32,32,32,32,32,32,32, 

136.143.132.32.32.32.32.32.3 

2.32.32 r149 

510 DATA 138,144,32,32,32,32,32,17 


6,176,176,176,176,152,32,32, 

32.32.32.154.32 

520 DATA 32,130,137,164,176,32,130 
,32,32,32,32,32,32,32,160,17 

6.140.131.32.32 

530 DATA 32,32,32,32,32,131,131,13 

1,140,140,140,134,131,131,13 

1.32.32.32.32.32 

540 DATA 32,32,32,176,140,140,131, 

131,131,131,131,131,131,140, 

140.176.32.32.32.32 

550 DATA 32,184,131,32,32,152,164, 

32.32.32.32.32.152.164.32.32 
,131,164,144,32 

560 DATA 168,129,32,32,32,32,32,32 
,32,32,32,32,32,32,32,32,32, 

32.169.32 

570 DATA 149,32,32,32,32,32,32,32, 

136.131.132.32.32.32.32.32.3 
2,32,32,149 

580 DATA 138,144,32,32,32,32,176,1 

52.140.140.140.140.164.176.3 

2.32.32.32.154.32 

590 DATA 32,130,137,164,176,131,32 
,32,32,32,32,32,32,32,163,17 

6.140.131.32.32 

600 DATA 32,32,32,32,32,131,131,13 

1,140,140,140,134,131,131,13 

1.32.32.32.32.32 
610 ' 

620 CLEAR 1000:DIM A<20),H$<7),N$( 
7),S$<7) 

630 FOR X = 1 TO 7:F0RY= 1 TO 20:R 
EAD A:H$(X)=H$(X)+CHR$ < A > s NEXTY:NE 
XTX 

640 FOR X = 1 TO 7sFORY = 1 TO 20: 


READ A: NS<X>=N*<X)+CHR*<A):NEXTYa 
NEXTX 

650 FOR X = 1 TO 7:F0RY = 1 TO 20: 

READ A:S*(X)=S$(X)+CHR$<A):NEXTY: 
NEXTX 

660 GOTO 120 
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Estes livros não 
podem faltar na sua 

informateca ——— 


BASIC PARA CRIANÇAS DOS 8 AOS 80 
Volumes 1 e 2 — Michael Zabinski — 


Dois divertidos livros para os jovens 
que querem conhecer a linguagem BA¬ 
SIC. Partem das noções elementares e, 
a cada novo conhecimento adquirido, o 
aluno é encorajado a praticar com exer¬ 
cícios e passatempos inteligentes. 

APLICAÇÕES PARA O SEU TRS-80 — 
QUASE TUDO EM BASIC Volumes 1 e 2 

— Howard Berenbon — Ao todo, 61 
aplicações diferentes para o seu com¬ 
putador. Tudo muito bem explicado, pa¬ 
ra que você possa compreendê-los e até 


SUGESTÕES PARA O PROGRAMADOR 
BASIC — Earl fí. Savage — O livro de 
consulta com todas aquelas técnicas e 
"dicas” que os programadores expe¬ 
rientes tanto escondem. 

CURSO DE PROGRAMAÇÃO BASIC E 
OPERAÇÃO CP 200 — Gradualmente, 
este livro desvenda os segredos da pro¬ 
gramação BASIC, com explicações de¬ 
talhadas e dezenas de exercícios. 

CP 300 OPERAÇÃO E PROGRAMAÇÃO 


CP 500 MICROCOMPUTADOR E LIN¬ 
GUAGEM BASIC — Inclui as especifi¬ 
cações e o uso de sub-rotinas em lingua¬ 
gem de máquina. 

DOS 500 SISTEMA DE OPERAÇÃO EM 
DISCO — Objetivo e ilustrado por vá¬ 
rios exemplos, este livro aborda todas 
as características do sistema operacio¬ 
nal em disco do CP 500. 

CP/M BÁSICO — Murtha & Waite — 


mesmo alterá-los. Os programas estão 
escritos em BASIC Níveis I e II, para o 
TRS-80 ou compatíveis (Prológica, Dis- 
mac, Digitus, Sysdata etc.) 


— Descrição objetiva das característi¬ 
cas do CP 300. Ideal para aqueles que 
querem conhecer os recursos desse mi¬ 
cro. 


Aborda em detalhes o que é um Sistema 
Operacional, como funciona o CP/M, co¬ 
mo utilizá-lo e tirar o máximo proveito 
dos vários recursos de que ele dispõe. 


ADQUIRA-OS NA SUA LIVRARIA DE CONFIANÇA OU 
SEGUINDO AS INSTRUÇÕES ABAIXO: 

ASSINALAR: 

BASIC PARA CRIANÇAS - Vol. 1. 

BASIC PARA CRIANÇAS - Vol. 2. CrS 14.600 

APLICAÇÕES P/O SEU TRS 80 - Vol. 1. 

APLICAÇÕES P/O SEU TRS 80 - Vol. 2. 

SUGESTÕES P/O PROGRAMADOR BASIC. CrS 

CP/M BÁSICO. CrS 11.500 

MANUAL DO CP 200. CrS 

MANUAL DO CP 300. CrS 

MANUAL DO CP 500. CrS 10.700 

MANUAC DO DOS 500. CrS 

ATENÇÃO: PREÇOS VÁLIDOS POR 
TEMPO LIMITADO 


CrS 

11.900 

CrS 

14.600 

CrS 

9.900 

CrS 

11.900 

CrS 

9.300 

CrS 

11.500 

CrS 

9.300 

CrS 

9.300 

CrS 

10.700 

CrS 

9.300 


Em anexo estou remetendo a importância de CrS _ 

em Cheque N? _ c/Banco _ ou 

Vale Postal N? _ (enviar à Agência Central SP) 

para pagamento do/s livro/s assinalados ao lado, que me será/ão 
remetido/s pelo correio. ___ 

Cheque ou Vale Postal, pagável em São Paulo, a favor de: 
EDITELE Editora Técnica Eletrônica Ltda. 

Caixa Postal 30.141 — 01000 — São Paulo — SP 


Nome Principal- 
Endereço _ 


Bairro. 


CEP_ 


Cidade- 


. Estado. 


(Se não quiser destacar esta folha pode enviar xerox com os dados completos) 
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Corrida 

Inteligente 


sta é uma corrida 
diferente. Aqui, os 
jóqueis vão precisar de 
um raciocínio rápido e 
inteligência. Atenção: vai ser 
dada a largada! 

Este programa permite que duas 
pessoas joguem 
simultaneamente. No início do 
jogo, a tela do seu micro exibirá 


dois cavalos em posição de 
largada. Para movê-los, você e 
seu adversário terão que 
realizar, com a maior rapidez 
possível, as quatro operações 
aritméticas: adição, subtração, 
multiplicação e divisão. Ganha 
quem chegar primeiro, ou seja: 
aquele que acertar o maior 
número de questões elaboradas 
pelo micro. 
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Corrida Inteligente 

Este programa foi listado numa impressora P 500. Por este motivo , faça as seguintes 
alterações nas linhas: 

420 - Tecla W -32 vezes (entre as aspas) 

32 vezes (entre as aspas) 

510 - Tecla 3-9 vezes (entre as aspas), quando em modo gráfico. 

1000 - Tecla SP - 1 vez (no local correspondente a#), quando em medo gráfico. 


10 '******* + *iF**++*++ihH^+*****. 

20 •••* CORRIDO INTELIGENTE * 
30 •-* PROLOG ICO * 

40 CP-200 * 

50 •"******************-*****■*..*.*..* 


60 GOTO 150 

70 FOR K=D<I) TO 0 STEP -1 
SO PRINT RT O,30;K;" " 

90 LET B*=INKEY* 

100 IF B$< “O" ÜR B$>"9" THEN NEXT 

K 

110 LET R$=R$+B$ 

120 PRINT RT 2,23;R* 

130 NEXT K 
140 RETURN 

150 PRINT RT 10,5;"CORRIDR DE CAVR 
LOS II";TRB5;"==================== 

=";RT 2Í,6;"DESEJR INSTRUÇÕES ?" 
160 IF INKEr*="N" THEN GOTO 330 
170 IF INKEY$<>"S" THEN GOTO 160 
ISO CLS 

190 PRINT RT 0,1;"ESTE JOGO PODE S 
ER DISPUTADO";TAB 6;"POR RTE 3 JOG 
RDORES." 

200 PRINT ,,TRB 0;"CRDR JOGRDOR DE 
VERA RESOLVER UMR";TRB 6;"0PERRCR0 
MATEMATICR." 

210 PRINT ,;TRB 1;"SE RCERTRR, SEU 
CRVRLO RNDRRfl";TRB 0;"D0IS PRSSOS 
. SE ERRRR, 0 CRVRLO";TRB 9;"FICRR 
R PRRRDO." 

220 PRINT ,,TRB 0;"VENCERR QUEM CH 
EGRR PRIMEIRO RO";TRB 9; "FIM DR PI 
STA." 

230 PRINT ,,TAB 2;"0 JOGRDOR TERR 
UM LIMITE DE";TRB 3;"TEMP0 PRRfl DR 
R A RESPOSTA." 

240 PRINT ,,TRB O;"SE RCRBRR O TEM 
PO PERDERR R VEZ." 

250 PRINT ,,TRB 0;"N0 FINAL SERR M 
OSTRRDO 0";TRB S;"APROVEITAMENTO." 
260 PRINT RT 21,A;"TECLE < ENTER > P 
ARA JOGRR" 

270 IF INKEY$< >CHR$ 113 THEN GOTO 
270 

230 GOTO 330 
290 FOR R=0 TO 7 
300 PRINT RT R,0;" 

310 NEXT R 
320 RETURN 
330 DIM N(3) 

340 DIM E(3) 

350 DIM N$(3,3) 

360 DIM D(3) 

370 DIM W$(3,1) 

330 DIM C(3) 

390 DIM P(3) 

400 DIM R(3) 

410 GOSUB 1150 

420 PRINT RT 3,0;" 32 DESSE CRRRCT 
ER ";RT 21,0;" 32 DESSE CRRRCTE 
R 

430 LET E(1)=9 
440 LET E(2)=13 
450 LET E(3)=17 
460 FOR 1=1 TO NP 
470 GOSUB 930 
430 NEXT I 
490 FOR 1=1 TO NP 
500 GOSUB 290 


510 PRINT RT 0,0;N*(I);RT 0,12;" 9 
CARRCTERES " 

520 LET R(I)=R(I)+1 
530 IF (I)="M" THEN GOTO 630 
540 IF W$(I)="D" THEN GOTO 620 
550 IF W$(I)="fi" THEN GOTO 740 
560 LET X=INT (RND*N(I))+1 
570 LET Y=INT (RND*N(I))+1 
530 IF Y>X THEN GOTO 560 
590 PRINT RT 0,15-LEN STR$ X;X; RT 
0,16;;RT0,21-LEN STR* Y;Y 
600 LET Z=X-Y 
610 GOTO 790 

620 LET X=INT (RND*N(I))+1 
630 LET Y=INT (RND*N(I)>+1 
640 IF X/YO INT (X/Y) THEN GOTO 6 
20 

650 LET Z=X/Y 


660 PRINT RT 0,15-LEN STR$ X;X; AT 
0,16;"/";RT 0,21-LEN STR$ Y;Y 
670 GOTO 790 

630 LET X=INT (RND*N(I))+1 
690 LET Y=INT (RND*N(I))+1 
700 IF Y>X THEN GOTO 630 
710 PRINT RT 0,15-LEN STR* X;X; AT 
0,16;"X";AT 0,21-LEN STR* Y;Y 
720 LET Z=X*Y 
730 GOTO 790 

740 LET X=INT <RND*N(I)>+1 
750 LET Y=INT <RND*N(I))+1 
760 IF Y>X THEN GOTO 740 
770 PRINT RT 0,15-LEN STR$ X‘;X; RT 
0,16;"+";AT 0,21-LEN STR$ Y;Y 
730.LET Z=X+Y 

790 PRINT RT 2,5;"DIGITE A RESPOST 
A 

300 LET R*=" " 

310 GOSUB 70 

320 IF K=-2 RND R$="" THEN PRINT R 
T 4,0;"BOBEOU, DANÇOU. 0 TEMPO RCR 
BOU. " 

330 IF K=—2 RND R*="" THEN GOTO 36 
0 

340 IF VRL R$OZ THEN PRINT RT 4,1 
0;"VOCE ERROU." 

350 IF VRL R$=Z THEN GOTO 900 

360 PRINT RT 6,6;"0 CORRETO ERR 00 

00.";RT 6,24—LEN STR* Z;Z 

370 FOR J=1 TO 50 

330 NEXT J 

390 GOTO 960 

900 PRINT RT 5,3;"MUITO BEM, CONTI 
NUE RSSIM." 

910 LET C(I)=C(I)+1 
920 FOR J=1 TO 50 
930 NEXT J 
940.1-GOSUB 930 


950 GOSUB 930 
960 NEXT I 
970 GOTO 490 

930 PRINT RT E(I),P <I);" ";TAB P 

<I);" ";TRB P(I);" ";TRB P(I) 

990 LET P(I)=P(I)+1 
-1000 PRINT RT E(I),P(I);" #";TRB 
Pd);"' #" ; TAB P(I);"/##";TAB P(I) 

3“ 

101(7 iF P (I) < 29 THEN RETURN 
1020 FOR J=1 TO 100 


1030 NEXT J 
1040 CLS 

1050 PRINT RT 2,7;"CAMPERQ: " ;N$( 

I) 

1060 PRINT RT 6,0;"NOME PERGU 

NTRS CORRETRS NOTA" 


1070 FOR 1=1 TO NP 

1030 IF C(I)=0 THEN LET C(I)=1 

1090 LET Q=INT <C(I)/R<1)*100) 

1100 PRINT ,,N$(I);TRB 12;R(I);TRB 
22;C(I);TRB 29;Q 
1110 NEXT I 

JDX20 PRINT RT 21,1;"TECLE < ENTER > 
PARA OUTRO JOGO" 

1130 IF INKEY$< >CHR$ 113 THEN GOfO 
1130 

1140 RUN 
1150 CLS 

1160 PRINT RT 11,2;"QUANTOS JOGRDO 
RES (1 A 3) ?" 

1170 LET R$=INKEY$ 

1130 IF R$<"1" OR R$>"3" THEN GOTO 
1170 

1190 LET NP=VRL R* 

1200 FOR 1=1 TO NP 
1210 CLS 

1220 PRINT AT 1,11;"JOGADOR ";I;A 
T 4,6;"QUAL E 0 SEU NOME ?" 

1230 INPUT N*(I) 

1240 IF N$(I)="" THEN GOTO 1230 
1250 PRINT RT 7,2;"QUflL 0 TEMPO PR 
RR R RESPOSTA";TRB 10;"(10 A 90) ? 

1260 INPUT D(I) 

1270 IF D (IX10 OR D(I)>90 THEN GO 
TO 1260 

1230 PRINT RT 10,7;"QUAL A OPERRCR 

0 ?" ; RT 12, '5; "A-> ADI CR 

0";TRB 5;"S -> SUBTRRCRO"; 

TRB 5;"M -> MULTIPLICACAO";TAB 

5; "D-> DIVISRO 

1290 LET W$ (I)=INKEY$ 

1300 IF W$(I)="fl" OR W*(I>="S" OR 
W*(I)="M" OR Ul$ (I) = "D" THEN GOTO 1 
320 

1310 GOTO 1290 

1320 PRINT RT 13,5;"QUAL 0 NIVEL ( 
1 R 3) ?" 

1330 LET R$=INKEY$ 

1340 IF R$<"1" OR R$>"3" THEN GOTO 
1330 

1350 IF R$="1" THEN LET N(I)= 19 

1360 IF R$="2" THEN LET N(I)= 99 
1370 IF R*="3" THEN LET N(I)=999 
1380 IF W$(I)="M" AND ft$="l" THEN 
LET N(I)=9 

1390 IF U1$(I) = "M" RND R$="2" THEN 
LET N(I)=49 

1400 IF W*(I>="M» RND R$="3" THEN 
LET N(I)=99 
1410 NEXTI 
1420 CLS 

1430 PRINT RT 4,6;"BEM-VINDOS R CO 
RkIDR"; RT 6,11;"DE CAVALOS" 

1440 IF NP=1 THEN PRINT RT 10,6;"0 
CORREDOR DE HOJE:" 

1450 IF NP>1 THEN PRINT RT 10,5;"O 
S CORREDORES DE HOJE:" 

1460 FOR 1=1 TO NP 
1470 PRINT ,,TRB 12;N$(I) 

1430 NEXT I 

1490 PRINT RT 21,3;"TECl_E < ENTER > 
PARA COMERCRR" 

1500 IF INKEY$OCHR$ 113 THEN GOTO 
1500 

1510 CLS 
1520 RETURN 

1530 SRVE "CORRIDA DE CAVALOS II" 
1540 RUN 
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Os 

Segredos 

da 

P500 


O grande segredo de como operar a 
impressora P 500, obtendo o máxi¬ 
mo de sua capacidade gráfica, está 
no completo conhecimento das funções 
de suas microchaves (dip-switch’s), exis¬ 
tentes na parte inferior da máquina, além 
dos comandos acionados por software. 
Paira simplificar sua utilização, estamos 
publicando uma série de dicas sobre os 
elementos fundamentais desse perifé¬ 
rico. 


As microchaves existentes na parte 
inferior têm a seguinte configuração: 



Na tabela abaixo descrevemos cada 
uma das microchaves da P 500 


1. Seleciona o salto automático do picote 
OPEN-ATIVO ON-INIBIDO 

Para o correto funcionamento desta função, antes de iniciar 
a operação deve-se informar à impressora onde e o início de 
uma nova página, posicionando-se o papel no topo da página 
e pressionando-se o botão RESET. 

4. Seleciona a compressão do caracter 

OPEN-ATIVO ON-INIBIDO 

5. Seleciona a expansão do caracter 

OPEN-ATIVO ON-INIBIDO 

6. Seleciona a dimensão do Line Feed (salto de linha) 

OPEN - 1/8" 0N - 1/6" 

7. Seleciona o Line Feed automático 

OPEN-INIBIDO ON-ATIVO 

8. Seleciona nível ativo do Acknowledge » 

OPEN-BAIXO 0N-ALT0 


ACH 12 Salto de página 

ODH 13 Retorno de carro 

OEH 14 Se recebido apos o comando ESC 

(1BH ou 27 decimal) passa para 
a impressão no modo expandido. 


SI 

DC3 

DC4 

ESC 


FS 

GS 


OFH 15 

13H 19 

14H 20 

IBH 27 

1CH 28 

1DH 29 


Se recebido apos ESC, retorna 
do modo expandido 
Se recebido após ESC, passa 
para o modo comprimido 
Se recebido após ESC, retorna 
do modo comprimido 
Inicia alteração nas caracte¬ 
rísticas de operação da impres¬ 
sora. 

Se recebido após ESC, ajusta o 
salto de linha para 1/6" 

Se i^cebido após ESC, ajusta o 
salto de linha para 1/8" 


Na página 43 do Manual do CP 500 
existem algumas informações que são 
úteis para a utilização da P 500. Mas é 
importante ressaltar que se, por exem¬ 
plo, a impressora estiver configurada 
pelas microchaves para caracteres com¬ 
primidos e receber uma instrução de 
software para expansão de caracteres, 
ela não irá imprimir caracteres expandi¬ 
dos, mas sim caracteres comprimidos/ 
expandidos. A expansão dos caracte¬ 
res só será realizada se enviada a instru¬ 
ção para descomprimi-los. 

O programa abaixo demonstra como 
podem ser alterados, via software, os 
caracteres da impressora. 


9. Seleciona nível ativo do Busy * 

OPEN-ALTO ON-BAIXO 

10. Seleciona nível ativo do Strobe * 

OPEN-BAIXO ON-ALTO 

Os sinais Strobe, Busy e Acknow¬ 
ledge são informações que o micro e a 
impressora trocam, indicando o recebi¬ 
mento e transmissão de dados entre si 
(veja diagrama da pág. 18 do Manual da 
Impressora). Para funcionamento com o 
CP 500 estes sinais devem ser: 

1 — Acknowledge — indiferente — o CP 

500 não usa este sinal. 

2 — Busy — nível baixo — chave 0 em 

ON. 

3 __ Strobe — nível baixo — chave 10 em 

OPEN. 

Sempre, para que uma nova configura¬ 
ção seja aceita, é necessário desligar e 
voltar a ligar a P 500, após as alterações 
desejadas nas chaves. 

A tabela abaixo indica como deter¬ 
minados comandos são interpretados pe¬ 
la impressora. 


Comando Código Descrição 

Hexa Decimal 


10 LPR1NT-ESTQ LINHA f IMPRESSO COM COPPCTERES COMPRIMIDOS" 

20 LPRINT"POIS R CHOVE 4 ESTO NR FQSICOO <OPEN>“ 

30 LPP.INTCHR* (27): LPRINTCHRS <20) 

40 LPRINT 

50 LPRINT-RPQS RECEBER 0 C0P10ND0 CHRS(27)+CHR*<20) POSSO O " 

AO LPRINT"IMPRIMIR NO MODO NORMRL POIS HOUVE DESCOMPPESSOO DOS" 
70 LPRINT“CRRRCTERES- 
80 LPRINT 
90 LPRINT 

100 LPRINTCKR* <27)CHR* <14J 

110 LPRINT"RFOS O COMONDO CHF'S <27 >+CHRS< 14) " 

120 LPRINT"PRSSR IMPRIMIR NO MODO EXFRNDIDO" 

130 LPRINT 
140 LPRINT 

150 LPRINTCHRS<27)CHRS<19) 

160 LPRINT"FINOLMENTE QURNDO O IMPPESS0RR ESTO N0 MODO EXFRNDI-" 
170 LPRINT"DO E RECEBE UM COMONDO CHF:*<27)♦CHP*<19> POSSO 0 OPE" 
180 LPRINT-ROR NO MODO COMPRIMlDO/EXPONDlDQ" 

190 LPRINT 

200 LPRINT"T0D0 O TEXTO OCIMO FOI IMPRESSO COM UM SOLTO DE LI-" 
210 LPRINT"NHO DE 1/6" POIS R CHOVE 6 ESTfl NO POS1COO :CN>" 

220 LPRINT 

230 LPRINT"POREM E POSSÍVEL OLTERRP. ESTE SOLTO POR SOFTWARE" 

240 LPRINT"COM O COMONDO CHPS<27>♦CHP*<29>" 

250 LPRINT 

260 LPRINTCHRS<27>CHR*<29) 

270 LPRINT 

280 LPRINT"OPORTIR DESTE MOMENTO O SOLTO DE POGINO POSSO O SER” 
290 LPRINT-DE 1/8" DE POLEGODR E PODE-SE RETORNRR R SRLTO DE” 
300 LPRINT"1/6 OPENOS DRNDO 0 COMANDO CHP*<27)+CHRS<28>" 

310 LPRINT 

320 LPRINTCHRS<271CHRS<23) 

330 LPRINT 

340 LPRINT"RPOS RECEBER ESTE COMONDO 0 S0i_T0 DE PRGINR VOLTO PO¬ 
SSO LPRINT"RP 1/6" COMO PODE-SE REPRRRR NO TEXTO QUE VOCE ESTfl" 
360 LPRINT-LENDO NESSE MOMENTO" 


Este programa, quando executado, 
apresenta o seguinte resultado. 


ESTO LD6H V WÍESSS CW OTSCTBSS CUPeiHlDÉE 
POIS R «W£ 1 ESTO K) PQSIOD «PDO 

RPOS RECEBER O COMONDO CHRSl27)+CHRS<20> PRSSR R 
IMPRIMIR NÜ MODO NORMRL POIS HOUVE DESCOMPRESSÃO DOS 
CRRRCTERES 

RPOS O COMONDO O H R * < 2 V > + C H R * < X -*• > 
PRSSR IMPRIMIR NO MODO EXPRNDIDO 

FIHRLMEHTE QUANDO R IMPRESSORO ESTR MO MODO EXPRNDI¬ 
DO E RECEBE UM COMRNDO CHRS<27)+CMR*<19> PRSSR R OPE 
RRR NO MODO COMPRIMIDQ /EXPANDI DO 

TODO O TEXTO RCIMR FOI IMPRESSO COM UM SRLTO DE LI¬ 
NHA DE 1/6" POIS R CHAVE 6 ESTR NR POSICRO <OK> 

POREM E' POSSÍVEL RLTERRS ESTE SRLTO POR SOFTUARE 
COM 0 COMRNDO CHR*<Z7>+CHRS<29> 


APARTIR DESTÊ MOMENTO O SRLTO DE PR61NR PRSSR R SER 
DE 1/0 " DE POLEGRDR E PODE-SE RETORNRR fi SRLTO DE 
1/6" RPENAS DRNDO O COMRNDO CHR* <27 ) ♦CKRS <28) 


Bell 


l/F 


07H 7 

OAH 10 


Aciona o Beep da impressora 
Salto de Linha 


RPOS RECEBER ESTE COMRNDO O SRLTO DE PR6IMR VOLTR PR 
RR 1/6" COMO PODE-SE REPRRRR HO TEXTO QUE VOCE ESTfl 
LENDO NESSE MOMENTO 


20 Geração Prológica 













































Convertendo 
Programas: 
do Apple 
para os 
CP 500 e CP 300. 



Complementando a matéria anterior, neste 
número de Geração Prológica estamos 
publicando novas dicas que permitirão 
transformar os programas do Apple para os CP 
500 e CP 300. 


Caracteres 

O Apple não tem letras minúsculas, 
sendo seu conjunto de caracteres ASC II 
duplicado. A tecla ESCape é CHR$(27): 
ela é freqüentemente usada para impri¬ 
mir comando e pode ser adaptada direta- 
mente. O teclado contém apenas a ma¬ 
triz direita e esquerda, respectivamente, 
com os valores de 8 e 9, o que não 
acarreta nenhum problema. Os coman¬ 
dos X=ASC(XS) e XS=CHRS(X) po¬ 
dem ser adaptados diretamente. 


Operadores Relativos 

São operadores do tipo = , < e 
< > Eles podem ser adaptados direta¬ 
mente. O AND no Apple não é um 
comparador de bit, mas pode ser usado 
apenas para instruções tais como: 

10 IF X = 1 AND Y= 2 

THEN PRINT “X = 1 AND Y = 2” 

Você pode adaptar este AND e OR 
diretamente. 

No entanto, há outro problema. No 
Apple zero é FALSE, do mesmo modo 
que no CP 500 e CP 300, mas TRUE é 1 e 
não -1. Se os valores numéricos atuais 
são usados, certifique-se de mudar o 
sinal. 


Operadores Algébricos e 
Matemáticos 

Os operadores algébricos são os 
mesmos no Apple e nos CP 500 e CP 300. 
O hífen é usado para negação e subtra¬ 
ção. Strings podem ser concatenadas 
com o sinal 

Todas as operações matemáticas 
podem ser transferidas diretamente. O 
DEF FN, que permite a você criar a sua 
própria função, pode ser adaptado dire¬ 
tamente. A única função que requer 
explicação é SGN, que retorna o sinal do 
número (não o seno) -1, se ele é negati¬ 
vo, 0 ou 1 se é positivo. Para simular Y= 
SGN (X), use Y= (X < 0).(X > 0). 

Outra área que precisa ser explicada 
é a dos números randômicos. O RND (1) 
do Apple é equivamente ao nosso RND 
(0), sendo que ambos produzem deci¬ 
mais randômicos. O RND (0) do Apple 
exibe o mais recente decimal randômico 
escolhido. Ele pode ser reproduzido 
através da cópia do mais recente RND 
(0) dos CP 500 e CP 300 em uma variável, 
que pode então ser utilizada: AS= RND 
(0). O Apple não tem RND (X). Para 
exibir inteiros randômicos em ordem 
entre 1 e X, inclusive, ele usa Y=INT 
(RND (1) * X -i- 1). Você pode substituir 
o RND (1) por RND (0) ou substituir a 
expressão inteira por Y = RND (X). 
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Sistemas e Utilitários 

FRE(O) no Apple retorna a quanti¬ 
dade de memória disponível ao usuário. 
Ele pode ser adaptado em MEM. Se 
você está especialmente interessado na 
quantidade da string de memória, use 
FRE(XS). 

A memória disponível para você no 
Apple é colocada por HIMEM: e LO- 
MEM:. Elas estabelecem limites da área 
que o programa pode usar. Você fre¬ 
quentemente verá HIMEM: 8192. Isto 
coloca o limite de memória exatamente 
abaixo de uma página de alta resolução, 
de modo que um programa não sobrepo¬ 
nha a memória de vídeo. Ignore-o, mas 
libere a memória quando você entrar em 
Basic. Adicione aproximadamente 
18.000 (ou 28.000 para sistemas de disco) 
para o número usado no programa, pois 
os programas Applesoft iniciam em 
800H. Quando você entrar em Basic, 
existe a possibilidade de colocar o núme¬ 
ro do buffer de disco que o MAXFILES 
do Apple requer. 

PEEK e POKE 

Estes comandos são diferentes no 
Apple. Você pode usar um número posi¬ 
tivo ou seu negativo equivalente (dife¬ 
rença de 65536). Isto significa que POKE 
49168,0 é equivalente a POKE - 16368,0, 
o que é de grande utilidade por três 
motivos: em primeiro lugar, os números 
altos são usados porque a ROM do 
Apple começa no DOOOH e continua 
até FFFFH e os POKES são usados para 
colocar pontos dentro dela. Em segundo 
lugar, os POKES são utilizados para 
estabelecer um programa em linguagem 
de máquina, na memória baixa. Os 256 
bytes iniciando em 768 não são usados 
pelo Apple, assim, a maior quantidade 
de rotinas de sons e pequenas sub- 
rotinas estão lá. Em terceiro lugar, os 
256 bytes estão na “página zero”; PO¬ 
KE 32,5 dá cinco espaços em todo o 
texto, por exemplo. 

CALL e USR 

O comando USR (X) é o mesmo 
USR(X) dos CP 500 e CP 300. Ele 
introduz valores de ida e volta de uma 
sub-rotina em linguagem de máquina. Se 
você não souber adaptar a rotina na 
linguagem do Z80, veja se há um Basic 
equivalente que faça a mesma coisa, um 
pouco mais devagar, ou dê um jeito de 
simplesmente não usá-lo. 

CALLs são usados freqüentemente 
porque podem utilizar rotinas de ROM 
para fazer coisas rapidamente. A tabela 
abaixo lhe ajudará a adaptar CALLs 
comuns: 


Ferramentas 

STOP e COMT podem ser adapta¬ 
dos diretamente. O comando TRACE do 
Apple pode ser substituído por TRON, e 
NOTRACE por TROFF. 

Arquivos de Programas 

Um programa do Apple pode carre¬ 
gar outro usando um CHRS(4) ou um 
controle -D embutido. Em outros casos, 
a linha pode ser transferida. Se você 
deparar com alguma coisa do tipo: 

10 PRINT CHR$(4); ” RUN THE GA¬ 
ME” ou 

10 D$=””: REM CTRL-D 
20 PRINT D$;“RUN THE GAME” 
converta-os para: 

10 RUN “THE GAME/BAS” 

O comprimento dos nomes de arqui¬ 
vos devem ser trocados. Em adição, 
especificações de drive devem ser usa¬ 
das. O drive mestre do Apple é numera¬ 
do pelo algarismo 1. Todos os discos do 
Apple contêm o DOS, sendo que um 
segundo drive não será necessário, ape¬ 
sar de ser numerado pelo algarismo 2. O 
SPEC é mostrado por um , Dx, onde x é 
o número do drive. Exemplo: 

10 PRINT CHRS(4); “LOAD THIS 

PROGRAM,D2” 

torna-se: 

10 LOAD “THISPROG/BAS: 1” 

O Apple possui um diretório do 
disco para ser mostrado de dentro de um 
programa. PRINT CHRS (4); “CATA- 
LOG” pode ser substituído com o equi¬ 
valente do CMD “D:0” DOS 500 1.3, 
que permite guardar com facilidade ar¬ 
quivos de linguagem de máquina, carre¬ 
gados e rodados. “B” permanece para 
binário. PRINT CHRS (4);“BRUN 
THIS PROGRAM” pode ser substituído 
por: CMD“I”, “THIS PROG/CMD”, 
que retorna para DOS 500 1.3 e executa 
THISPROGRAM. BSAVE pode ser fei¬ 
to de maneira similar. Seus parâmetros 
incluem o endereço de início do arquivo 
binário e seu comprimento. Exemplo: 

PRINT CHRS(4); “BSAVE PICTURE 
DATA, AS2000, L126” 
na qual S indica um valor hexadecimal. 
Pode ser simulado por: CMD “I”, XS 
comXS=“DUMP PICTURE/DAT 
(START = ...,END = ...,TRA=...)” e 
com o parâmetro de ajuste registrado. 
BLOAD pode ser simulado com a instru¬ 
ção CMD“L”. É frequentemente usado 


CALL 

Apple 

Função 

Adaptação 

CALL 

-936 

limpa a tela 

CLS 

CALL 

-958 

limpa a parte debaixo do texto 

PRINT CHRS(31) 

CALL 

-875 

limpa a linha inteira 

PRINT CHR$(29) 

CALL 

-868 

limpa à direita da linha 

PRINT CHR$(30) 

CALL 

-678 

espera por ENTER 

INPUT X$ 


para carregar rotinas de som ou formatos 
de figura. 

Arquivos Sequenciais 

O Apple abre um arquivo sequencial 
quando encontra PRINT CHRS(4); 
“OPEN FILENAME”. Você também 
pode encontrar uma especificação de 
drive com nome. Quando um arquivo é 
aberto, ele pode ser gravado ou lido, 
coisa que o Apple faz através de uma 
instrução tipo: 

20 PRINT CHRS(4); “WRITE FILENA¬ 
ME” ou 

20 PRINT CHRS(4); “READ FILENA¬ 
ME”. 

Daí em diante, qualquer PRINT X$ gra¬ 
va e qualquer INPUT lê o que foi o 
gravado. Uma vantagem desta combina¬ 
ção é que o arquivo não precisa ser 
fechado e reaberto quando você muda de 
WRITE para READ. O modo mais fácil 
de executar a conversão para os CP 500 e 
CP 300 é reabrindo um arquivo através 
do comando: 

10 OPEN “0”, 1, 

”NOMEARQ/TXT” 

onde “1” indica o número do buffer. 
Feito isto, mude todos os PRINTs sem 
bloco para PRINT seguido da viarável 
para executar a gravação. Para a leitura, 
use 10 OPEN “TM, “ NO - 
MEARQ/TXT”, e troque todos os IN- 
PUTs para INPUT seguido da variável e 
adapte o PRINT CHR$(4); “CLOSE 
FILENAME” para CLOSE. 

Tanto o Apple como os CP 500 e CP 
300 permitem a abertura e gravação de 
arquivos sequenciais. Um 10 PRINT 
CHRS(4); “APREND FILENAME” de¬ 
ve ser transformado, no caso dos CP’s, 
para 10 OPEN “E’\ 1, “NO¬ 

ME ARQ/TXT”. 

Arquivos de Acesso 
Randômico 

Para abrir um arquivo de acesso 
randômico, no Apple, é necessário que o 
usuário especifique o comprimento do 
registro através da instrução: 10 PRINT 
CHR$(4); “OPEN RANDOM LHO”, 
que faz com que os campos tenham um 
comprimento de 40 bytes. Para abrir um 
arquivo desse tipo, você poderá usar o 
padrão: 

10 OPEN “R”, 1, “RANDOM/TXT”, 40 

e não esqueça de incluir a instrução 
FIELD para alocar os campos no regis¬ 
tro. Exemplo: FIELD 1,40 AS NAMES, 
o que permite definir que a variável 
NAMES contenha até 40 bytes. READS 
e WRITS são manipulados de modo 
diferente no Apple (que necessita de Rx) 
e nos CP’s. Ambos, no CP 500 e CP 300 
são executados com o uso de buffers de 
aquivo e um apontador de registro. Se 
X% é o número do registro a ser recupe¬ 
rado, então GET 1,X% faz sua leitura e 
PUT 1,X grava no registro. 
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Para que futuro você está 
educando seu filho? 



I 





Os dois usam computador. 


ssim como Ioda educação 
emana de alguma imagem do 
futuro . toda educação emana 
alguma imagem do futuro." 
(A Ivin T ofller) 

O CP 200 da Prológica é simples de operar, 
custa menos do gue um tv a cores e faz 
importantes trabalhos de interesse de toda a 
família. Com ele você e seus filhos aprendem a 
linguagem "Basic" e ficam aptos a programar 
qualquer tipo de computador. participando e 
criando o momento atual que já é chamado de 
"a era da informática". 

Basta ligar o CP 200 a um televisor e a um 
gravador para você ter um computador 
completo em sua casa. 

Assim como o extrato de tomate, o 
liquidificador, o durex. o automóvel, a máquina 
de escrever e a calculadora, o CP 200 vai 
simplificar sua vida. 


E vai dar mais tempo para você e sua família 
criarem um futuro melhor. 


Veja o que você faz com o CP 200: 

• Aprendizado em linguagem Basic 

• Divertidos jogos e passatempos eletrônicos 

• Orçamento domestico 

• Controle de conta bancária 

• Aulas de matemática e física 

• Gráficos e cálculos científicos 

■■■ PROLOGICA 

microcomputadores 
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NOVO CP 300 PROLÓGICA. 


aí 



0pequeno 
grande micro 


Compatível com 
programas em fita 
cassete ou em disco. 


Agora, na hora de escolher entre um Pode ser ligado ao seu Aparelho de TV, da 

microcomputador pessoal simples, de fácil mesma forma que no terminal de vídeo 
manejo e um sofisticado microcomputador de uma grande empresa, 
profissional, você pode ficar com os dois. Com o CP 300 você pode 
Porque chegou o novo CP 300 Prológica. fazer conexões telefônicas 
0 novo CP 300 tem preço de , para coleta de dados^^ 

microcomputador pequeno. Mas memória se utilizar 

de microcomputador grande. de uma 

Ele já nasceu com 64 impressora IjtSSH 

^ kbytes de memória e ainda dispor de todos 

' nterna com I os programas existentes 
possibilidade de Permite para o CP 500 ou o 
- 1 expansão de memó- teie^ônfca 0 TRS-80 americano. I 
j ria externa para até ' você estará apto a o| 

quase 1 megabyte. outro sistema de microcom 

E tem um teclado profissional, Nenhum outro microconr 
que dá ao CP 300 uma versatilidade incrível. na sua faixa tem tantas pos 
Ele pope ser utilizado com programas de expansão ou desempenho i 
fita cassete, da mesma maneira que com CP 300 Prológica. 

programas em disco. jilflIHF T!*! Os outros não m 

fazem o que ele faz, m 
pelo preço que 
ele cobra. 


Pode ser ligado 
a um televisor comum 
ou a um sofisticado 
terminal de vídeo. 


Pode ser 
acoplado a uma 
impressora 


O único na sua faixa que já 
nasce com 64 kbytes de memória, 
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